(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    629186,      13436]
NotebookOptionsPosition[    601749,      12525]
NotebookOutlinePosition[    602093,      12540]
CellTagsIndexPosition[    602050,      12537]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Moff", "[", 
   RowBox[{"r_", ",", "R_", ",", "\[Beta]_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"\[Beta]", "-", "1"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"Pi", " ", 
     RowBox[{"R", "^", "2"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"r", "/", "R"}], ")"}], "^", "2"}]}], ")"}], "^", 
      "\[Beta]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.560663470125*^9, 3.56066358246875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"Moff", "[", 
     RowBox[{"r", ",", "1.2345", ",", "3.5567"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560764330265625*^9, 3.56076444165625*^9}}],

Cell[BoxData["0.9999999999999275`"], "Output",
 CellChangeTimes->{{3.5607643706875*^9, 3.5607644433125*^9}, 
   3.560764970609375*^9, 3.560788214296875*^9, 3.561129168140625*^9, 
   3.561129725375*^9, 3.561728193953125*^9, 3.561789758546875*^9, 
   3.56198251784375*^9, 3.56204626709375*^9, 3.56206843465625*^9, 
   3.56235153059375*^9, 3.562354625296875*^9, 3.562465815487381*^9, 
   3.562961630828125*^9, 3.56308661403125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Moff", "[", 
      RowBox[{"r", ",", " ", "1.", ",", "3.5"}], "]"}], " ", "==", " ", 
     RowBox[{
      RowBox[{"Moff", "[", 
       RowBox[{"0.", ",", " ", "1.", ",", "3.5"}], "]"}], "/", "2"}]}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", " ", ".5"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"find", " ", "HWHM"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{
  3.548418901937459*^9, {3.555046043015625*^9, 3.5550460586875*^9}, {
   3.555411630375*^9, 3.55541163109375*^9}, {3.555412128171875*^9, 
   3.555412134796875*^9}, {3.559893578953125*^9, 3.559893585734375*^9}, {
   3.56066697921875*^9, 3.560667059625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r", "\[Rule]", "0.4679889466691232`"}], "}"}]], "Output",
 CellChangeTimes->{{3.560667015859375*^9, 3.560667060953125*^9}, 
   3.5606900073125*^9, 3.560754318328125*^9, 3.5607573380625*^9, 
   3.560757969703125*^9, 3.5607674785625*^9, 3.560767745484375*^9, 
   3.560768694796875*^9, 3.56076900725*^9, 3.5607693198125*^9, 
   3.560770018671875*^9, 3.5607727531875*^9, 3.5617905233125*^9, 
   3.56198251809375*^9, 3.562046268765625*^9, 3.5620684350625*^9, 
   3.562351530890625*^9, 3.56235462534375*^9, 3.562465815831131*^9, 
   3.562961631109375*^9, 3.56308661434375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"r", "^", "2"}], 
    RowBox[{"Moff", "[", 
     RowBox[{"r", ",", "1", ",", "\[Beta]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"Re", "[", "\[Beta]", "]"}], ">", "2"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560765687734375*^9, 3.560765730796875*^9}}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"-", "2"}], "+", "\[Beta]"}]]], "Output",
 CellChangeTimes->{{3.560765689375*^9, 3.560765731921875*^9}, 
   3.56078821703125*^9, 3.5611291731875*^9, 3.5611297284375*^9, 
   3.56172819578125*^9, 3.561789758765625*^9, 3.5619825210625*^9, 
   3.56204628159375*^9, 3.562068438234375*^9, 3.562351533578125*^9, 
   3.562354625546875*^9, 3.562465819003006*^9, 3.562961633984375*^9, 
   3.563086617171875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"r", "^", "4"}], 
    RowBox[{"Moff", "[", 
     RowBox[{"r", ",", "1", ",", "\[Beta]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"Re", "[", "\[Beta]", "]"}], ">", "2"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560765687734375*^9, 3.560765730796875*^9}, {
  3.560767025484375*^9, 3.5607670260625*^9}}],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Re", "[", "\[Beta]", "]"}], ">", "3"}], ",", 
   FractionBox["2", 
    RowBox[{"6", "-", 
     RowBox[{"5", " ", "\[Beta]"}], "+", 
     SuperscriptBox["\[Beta]", "2"]}]], ",", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["r", "5"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["r", "2"]}], ")"}], 
        RowBox[{"-", "\[Beta]"}]]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "5"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["r", "2"]}], ")"}], 
        RowBox[{"-", "\[Beta]"}]], " ", "\[Beta]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{"2", "<", 
       RowBox[{"Re", "[", "\[Beta]", "]"}], "\[LessEqual]", "3"}]}]}], 
    "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.56076703659375*^9, 3.56078822578125*^9, 
  3.561129184546875*^9, 3.56112973896875*^9, 3.561728200953125*^9, 
  3.5617897643125*^9, 3.561982526296875*^9, 3.56204628703125*^9, 
  3.56206844353125*^9, 3.56235153865625*^9, 3.56235462715625*^9, 
  3.562465824237381*^9, 3.562961639125*^9, 3.563086622578125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MoffM2", "[", 
   RowBox[{"r_", ",", "RM_", ",", "\[Beta]_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"\[Beta]", "-", "1"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"Pi", " ", 
     RowBox[{"(", 
      RowBox[{"\[Beta]", "-", "2"}], ")"}], 
     RowBox[{"RM", "^", "2"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"r", "/", "RM"}], ")"}], "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{"\[Beta]", "-", "2"}], ")"}]}]}], ")"}], "^", "\[Beta]"}]}],
     ")"}]}]}]], "Input",
 CellChangeTimes->{{3.560765740484375*^9, 3.56076579303125*^9}, {
  3.5607658941875*^9, 3.5607659178125*^9}, {3.560766265375*^9, 
  3.560766324421875*^9}, {3.56076691384375*^9, 3.56076694103125*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"so", " ", "now", " ", "M2"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"RM", "^", "2"}], " ", "always"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.560765798859375*^9, 3.560765818375*^9}, {
  3.56076692603125*^9, 3.560766933109375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"r", "^", "2"}], 
    RowBox[{
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", "1.2345", ",", "3.5678"}], "]"}], "/", 
     RowBox[{"1.2345", "^", "2"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560765823859375*^9, 3.560765885578125*^9}, {
  3.560766440203125*^9, 3.560766440328125*^9}, {3.56076670996875*^9, 
  3.56076680453125*^9}}],

Cell[BoxData["1.0000000000744789`"], "Output",
 CellChangeTimes->{{3.56076584725*^9, 3.560765923640625*^9}, 
   3.560766334875*^9, 3.560766444140625*^9, {3.560766712265625*^9, 
   3.560766720796875*^9}, {3.560766757921875*^9, 3.560766805171875*^9}, 
   3.560766948671875*^9, 3.5607882259375*^9, 3.5611291846875*^9, 
   3.561129739109375*^9, 3.561728202*^9, 3.561789764390625*^9, 
   3.561982526359375*^9, 3.562046287109375*^9, 3.56206844359375*^9, 
   3.562351538703125*^9, 3.562354627234375*^9, 3.562465824284256*^9, 
   3.562961639296875*^9, 3.563086622671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MoffM2", "[", 
  RowBox[{"0", ",", "RM", ",", "\[Beta]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5607896415*^9, 3.56078964628125*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "\[Beta]"}], 
  RowBox[{"\[Pi]", " ", 
   SuperscriptBox["RM", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "\[Beta]"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.560789647765625*^9, 3.561129184734375*^9, 
  3.56112973915625*^9, 3.56172820203125*^9, 3.561789764421875*^9, 
  3.561982526375*^9, 3.562046287421875*^9, 3.562068443625*^9, 
  3.56235153871875*^9, 3.56235462728125*^9, 3.562465824299881*^9, 
  3.562961639328125*^9, 3.563086622703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", " ", "1.", ",", "3.5"}], "]"}], " ", "==", " ", 
     RowBox[{
      RowBox[{"MoffM2", "[", 
       RowBox[{"0.", ",", " ", "1.", ",", "3.5"}], "]"}], "/", "2"}]}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", " ", ".5"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"find", " ", "HWHM"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{
  3.548418901937459*^9, {3.555046043015625*^9, 3.5550460586875*^9}, {
   3.555411630375*^9, 3.55541163109375*^9}, {3.555412128171875*^9, 
   3.555412134796875*^9}, {3.559893578953125*^9, 3.559893585734375*^9}, {
   3.56066697921875*^9, 3.560667059625*^9}, {3.56076682490625*^9, 
   3.560766825515625*^9}, {3.560767232625*^9, 3.56076723340625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r", "\[Rule]", "0.5731670623009607`"}], "}"}]], "Output",
 CellChangeTimes->{{3.560667015859375*^9, 3.560667060953125*^9}, 
   3.5606900073125*^9, 3.560754318328125*^9, 3.5607573380625*^9, 
   3.560757969703125*^9, 3.560762655359375*^9, 3.560764017375*^9, 
   3.560764970671875*^9, 3.560766830109375*^9, 3.560767234359375*^9, 
   3.560788225984375*^9, 3.561129185125*^9, 3.561129739234375*^9, 
   3.56172820253125*^9, 3.5617897645625*^9, 3.56198252640625*^9, 
   3.562046287578125*^9, 3.562068443640625*^9, 3.56235153871875*^9, 
   3.5623546273125*^9, 3.562465824315506*^9, 3.562961639359375*^9, 
   3.563086622734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "/", "0.5731670623009607`"}]], "Input",
 CellChangeTimes->{{3.560767248078125*^9, 3.56076726378125*^9}}],

Cell[BoxData["1.7446920204827057`"], "Output",
 CellChangeTimes->{3.560767264953125*^9, 3.56078822603125*^9, 
  3.561129185171875*^9, 3.561129739296875*^9, 3.5617282025625*^9, 
  3.5617897646875*^9, 3.561982526421875*^9, 3.562046287703125*^9, 
  3.562068443671875*^9, 3.562351538734375*^9, 3.56235462734375*^9, 
  3.562465824331131*^9, 3.562961639375*^9, 3.563086622765625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"so", " ", "HWHM", " ", "is", " ", "0.573167`", " ", "R"}], "  ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.560763370703125*^9, 3.5607634458125*^9}, {
   3.56076427978125*^9, 3.560764281015625*^9}, 3.56076684*^9, {
   3.560766893671875*^9, 3.5607668955625*^9}, {3.56076724446875*^9, 
   3.5607672775625*^9}, {3.56076732565625*^9, 3.56076733928125*^9}, {
   3.5607673715625*^9, 3.56076737384375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Moff35h", "[", 
   RowBox[{"r_", ",", "Rhwhm_"}], "]"}], ":=", 
  RowBox[{"5", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"0.4679889466691232`", "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "Pi"}], ")"}]}], "/", 
    RowBox[{"Rhwhm", "^", "2"}]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"0.4679889466691232`", 
         RowBox[{"r", "/", "Rhwhm"}]}], ")"}], "^", "2"}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"-", "3.5"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5598931103125*^9, 3.559893154234375*^9}, {
   3.5598932253125*^9, 3.559893251921875*^9}, 3.55989340371875*^9, {
   3.559893714171875*^9, 3.559893765921875*^9}, 3.55989393721875*^9, {
   3.559894153171875*^9, 3.559894156234375*^9}, 3.560961433*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"Moff35h", "[", 
    RowBox[{"1", ",", "1"}], "]"}], "/", " ", 
   RowBox[{"Moff35h", "[", 
    RowBox[{"0", ",", "1"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.56096043565625*^9, 3.560960474484375*^9}, {
  3.56096143303125*^9, 3.56096143303125*^9}}],

Cell[BoxData["0.5000000000000001`"], "Output",
 CellChangeTimes->{{3.560960456890625*^9, 3.56096047509375*^9}, 
   3.56112918525*^9, 3.561129739375*^9, 3.56172820259375*^9, 
   3.561789764859375*^9, 3.561982526453125*^9, 3.562046287859375*^9, 
   3.562068443703125*^9, 3.56235153875*^9, 3.562354627375*^9, 
   3.562465824346756*^9, 3.5629616394375*^9, 3.5630866228125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"r", "^", "2"}], " ", 
       RowBox[{"Moff35h", "[", 
        RowBox[{"r", ",", "1"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Ref"}], "}"}]}], "]"}], "\[Equal]", 
    "0.5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ref", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560960479421875*^9, 3.560960559625*^9}, 
   3.5609614330625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Ref", "\[Rule]", "1.4458473030317134`"}], "}"}]], "Output",
 CellChangeTimes->{{3.5609605296875*^9, 3.56096056790625*^9}, 
   3.561129192875*^9, 3.5611297470625*^9, 3.561728209390625*^9, 
   3.561789770921875*^9, 3.5619825329375*^9, 3.5620462959375*^9, 
   3.562068450265625*^9, 3.562351545203125*^9, 3.562354633484375*^9, 
   3.562465830768631*^9, 3.562961645890625*^9, 3.563086629265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MM2", " ", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], " ", 
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.560667159015625*^9, 3.56066715971875*^9}, {
   3.560669059453125*^9, 3.560669066796875*^9}, 3.560961433078125*^9}],

Cell[BoxData["3.0439502463360273`"], "Output",
 CellChangeTimes->{3.5606671615625*^9, 3.5606690679375*^9, 
  3.56069003434375*^9, 3.560754319140625*^9, 3.5607573388125*^9, 
  3.5607579699375*^9, 3.56076265559375*^9, 3.560764019078125*^9, 
  3.56076497090625*^9, 3.560788226265625*^9, 3.56112919334375*^9, 
  3.56112974759375*^9, 3.561728209640625*^9, 3.5617897710625*^9, 
  3.56198253315625*^9, 3.562046296203125*^9, 3.562068450484375*^9, 
  3.56235154540625*^9, 3.562354633609375*^9, 3.562465830987381*^9, 
  3.562961646140625*^9, 3.56308662953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MM4", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "4"}], " ", 
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.560667159015625*^9, 3.56066717359375*^9}, {
   3.560669071046875*^9, 3.56066907296875*^9}, {3.560763523671875*^9, 
   3.560763530078125*^9}, {3.560763619640625*^9, 3.560763624765625*^9}, 
   3.56096143309375*^9}],

Cell[BoxData["55.59379861301496`"], "Output",
 CellChangeTimes->{3.560667174796875*^9, 3.56066907571875*^9, 
  3.560669315546875*^9, 3.560690034671875*^9, 3.560754319359375*^9, 
  3.560757339171875*^9, 3.56075797015625*^9, 3.560762655796875*^9, 
  3.560763533078125*^9, 3.56076362615625*^9, 3.56076401928125*^9, 
  3.560764971109375*^9, 3.56078822653125*^9, 3.56112919371875*^9, 
  3.561129748*^9, 3.561728209828125*^9, 3.56178977125*^9, 3.5619825333125*^9, 
  3.562046296375*^9, 3.56206845065625*^9, 3.5623515455625*^9, 
  3.562354633703125*^9, 3.562465831128006*^9, 3.562961646328125*^9, 
  3.563086629703125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "So", " ", "the", " ", "2", "nd", " ", "and", " ", "4", "th", " ", 
   "moments", " ", "of", " ", 
   RowBox[{"Moff35", "[", 
    RowBox[{"r", ",", "Rhwhm"}], "]"}], " ", "are", " ", "3.044", " ", 
   RowBox[{"Rhwhm", "^", "2"}], " ", "and", " ", "55.594", " ", 
   RowBox[{"Rhwhm", "^", "4"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.560667178203125*^9, 3.5606672613125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], " ", 
     RowBox[{"Exp", "[", 
      RowBox[{"-", "r"}], "]"}]}], "\[Equal]", "0.5"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560180880265625*^9, 3.56018119790625*^9}, {
   3.560231778453125*^9, 3.560231825546875*^9}, {3.560232070296875*^9, 
   3.5602320735*^9}, 3.560232110734375*^9, {3.56066790703125*^9, 
   3.5606679159375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r", "\[Rule]", "1.6783469900166608`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.56018109834375*^9, {3.560181137546875*^9, 3.56018116259375*^9}, 
   3.560181199140625*^9, 3.560231827796875*^9, 3.560232074609375*^9, 
   3.560232113265625*^9, 3.5606034055625*^9, 3.56066790934375*^9, 
   3.560690034796875*^9, 3.560754319390625*^9, 3.56075733934375*^9, 
   3.560757970203125*^9, 3.560762655875*^9, 3.56076401934375*^9, 
   3.560764971171875*^9, 3.560788226578125*^9, 3.561129193765625*^9, 
   3.5611297480625*^9, 3.561728209859375*^9, 3.56178977128125*^9, 
   3.56198253334375*^9, 3.562046296421875*^9, 3.5620684506875*^9, 
   3.562351545578125*^9, 3.562354633734375*^9, 3.562465831159256*^9, 
   3.562961646375*^9, 3.563086629734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ae", "=", "1.6783469900166608`"}]], "Input",
 CellChangeTimes->{3.5602321215625*^9}],

Cell[BoxData["1.6783469900166608`"], "Output",
 CellChangeTimes->{3.560232124046875*^9, 3.560603405609375*^9, 
  3.560690034828125*^9, 3.56075431940625*^9, 3.560757339390625*^9, 
  3.560757970265625*^9, 3.560762655921875*^9, 3.560764019390625*^9, 
  3.56076497121875*^9, 3.560788226625*^9, 3.5611291938125*^9, 
  3.561129748109375*^9, 3.561728209890625*^9, 3.5617897713125*^9, 
  3.561982533375*^9, 3.562046296453125*^9, 3.56206845071875*^9, 
  3.56235154559375*^9, 3.562354633765625*^9, 3.562465831174881*^9, 
  3.56296164640625*^9, 3.563086629765625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ae", "^", "2"}], "r", "  ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "ae"}], " ", "r"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5601812176875*^9, 3.560181220609375*^9}, {
  3.560231879578125*^9, 3.560231902921875*^9}, {3.5602319750625*^9, 
  3.560232023609375*^9}, {3.560232079640625*^9, 3.560232087796875*^9}}],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{
  3.56018122228125*^9, {3.560231899203125*^9, 3.560231904421875*^9}, 
   3.560231980984375*^9, 3.560232026140625*^9, 3.560232092140625*^9, 
   3.56023212765625*^9, 3.560603405765625*^9, 3.560690036453125*^9, 
   3.560754319484375*^9, 3.560757339515625*^9, 3.560757970359375*^9, 
   3.56076265603125*^9, 3.5607640195*^9, 3.5607649713125*^9, 
   3.560788226734375*^9, 3.56112919409375*^9, 3.561129748265625*^9, 
   3.561728209953125*^9, 3.561789771359375*^9, 3.561982533453125*^9, 
   3.56204629653125*^9, 3.56206845078125*^9, 3.56235154565625*^9, 
   3.5623546338125*^9, 3.562465831221756*^9, 3.562961646484375*^9, 
   3.563086629828125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"EProf", "[", 
   RowBox[{"r_", ",", "Re50_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"2", "Pi"}], ")"}]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ae", "/", "Re50"}], ")"}], "^", "2"}], 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "ae"}], " ", 
     RowBox[{"r", "/", " ", "Re50"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.560181228125*^9, 3.5601813265625*^9}, {
  3.56018145240625*^9, 3.560181454078125*^9}, {3.560184082109375*^9, 
  3.56018414534375*^9}, {3.560232048640625*^9, 3.56023205225*^9}, {
  3.56023213425*^9, 3.560232194234375*^9}, {3.560232526046875*^9, 
  3.56023252765625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"EProf", "[", 
     RowBox[{"r", ",", "1"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961975703125*^9, 3.560961993359375*^9}}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{{3.560961979984375*^9, 3.5609619944375*^9}, 
   3.561129194484375*^9, 3.561129748609375*^9, 3.561728210171875*^9, 
   3.5617897714375*^9, 3.561982533625*^9, 3.56204629675*^9, 3.562068451*^9, 
   3.56235154584375*^9, 3.562354633890625*^9, 3.562465831378006*^9, 
   3.562961646859375*^9, 3.563086630203125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", "  ", 
       RowBox[{"EProf", "[", 
        RowBox[{"r", ",", "1"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Ref"}], "}"}]}], "]"}], "\[Equal]", 
    "0.5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ref", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961880890625*^9, 3.56096195703125*^9}, {
  3.5609620011875*^9, 3.5609620135625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Ref", "\[Rule]", "1.`"}], "}"}]], "Output",
 CellChangeTimes->{3.56096192496875*^9, 3.560961958078125*^9, 
  3.56096201759375*^9, 3.561129194890625*^9, 3.561129749015625*^9, 
  3.561728210390625*^9, 3.561789771640625*^9, 3.5619825338125*^9, 
  3.562046296953125*^9, 3.562068451171875*^9, 3.562351546015625*^9, 
  3.56235463409375*^9, 3.562465831565506*^9, 3.5629616470625*^9, 
  3.563086630390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"EProf", "[", 
      RowBox[{"Rhm", ",", "1"}], "]"}], "/", 
     RowBox[{"EProf", "[", 
      RowBox[{"0", ",", "1"}], "]"}]}], "\[Equal]", ".5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Rhm", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961644171875*^9, 3.5609617330625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Rhm", "\[Rule]", "0.4129939664938205`"}], "}"}]], "Output",
 CellChangeTimes->{3.560961657*^9, 3.560961734046875*^9, 3.5611291949375*^9, 
  3.561129749078125*^9, 3.561728210421875*^9, 3.561789771671875*^9, 
  3.56198253384375*^9, 3.562046296984375*^9, 3.562068451203125*^9, 
  3.56235154603125*^9, 3.562354634109375*^9, 3.562465831581131*^9, 
  3.562961647140625*^9, 3.563086630453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ME2", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], " ", 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.56018130475*^9, 3.560181307078125*^9}, {
  3.56018133909375*^9, 3.560181408671875*^9}, {3.560184247140625*^9, 
  3.5601842504375*^9}, {3.560232532046875*^9, 3.56023253315625*^9}, {
  3.560668220546875*^9, 3.560668231390625*^9}, {3.5606690209375*^9, 
  3.560669025390625*^9}, {3.5606690794375*^9, 3.560669080015625*^9}}],

Cell[BoxData["2.1300399175683555`"], "Output",
 CellChangeTimes->{{3.560181398140625*^9, 3.56018140946875*^9}, 
   3.560181458234375*^9, 3.560184154390625*^9, 3.560184251640625*^9, {
   3.560232186109375*^9, 3.56023219715625*^9}, 3.5602325341875*^9, 
   3.56060340621875*^9, 3.560668232671875*^9, 3.560669026453125*^9, 
   3.560669081109375*^9, 3.560690038375*^9, 3.560754319734375*^9, 
   3.560757340125*^9, 3.560757970515625*^9, 3.560762656203125*^9, 
   3.560764019671875*^9, 3.560764971484375*^9, 3.560788226953125*^9, 
   3.561129195234375*^9, 3.561129749375*^9, 3.561728210625*^9, 
   3.561789771734375*^9, 3.56198253396875*^9, 3.562046297125*^9, 
   3.56206845153125*^9, 3.562351546171875*^9, 3.5623546341875*^9, 
   3.562465831706131*^9, 3.56296164728125*^9, 3.563086630609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ME4", " ", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", "  ", 
     RowBox[{"r", "^", "4"}], " ", 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.56018130475*^9, 3.560181307078125*^9}, {
  3.56018133909375*^9, 3.560181408671875*^9}, {3.5601814714375*^9, 
  3.560181496578125*^9}, {3.560232537171875*^9, 3.560232538390625*^9}, {
  3.56066823959375*^9, 3.560668253125*^9}, {3.56066902884375*^9, 
  3.560669040796875*^9}, {3.5606690840625*^9, 3.560669084609375*^9}, {
  3.5606693069375*^9, 3.560669309265625*^9}}],

Cell[BoxData["15.12356683478202`"], "Output",
 CellChangeTimes->{{3.560181474390625*^9, 3.560181497515625*^9}, 
   3.56023220378125*^9, 3.560232539328125*^9, 3.56060340634375*^9, 
   3.560668254109375*^9, {3.560669035859375*^9, 3.56066904203125*^9}, 
   3.56066908559375*^9, 3.56066930990625*^9, 3.560690038609375*^9, 
   3.560754319859375*^9, 3.560757340640625*^9, 3.560757970671875*^9, 
   3.560762656359375*^9, 3.560764019828125*^9, 3.560764971640625*^9, 
   3.56078822715625*^9, 3.561129195578125*^9, 3.561129749734375*^9, 
   3.56172821078125*^9, 3.561789771890625*^9, 3.561982534109375*^9, 
   3.56204629725*^9, 3.562068451703125*^9, 3.56235154628125*^9, 
   3.562354634265625*^9, 3.562465831815506*^9, 3.562961647453125*^9, 
   3.56308663075*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "So", " ", "the", " ", "2", "nd", " ", "and", " ", "4", "th", " ", 
   "moments", " ", "of", " ", 
   RowBox[{"EProf", "[", 
    RowBox[{"r", ",", "Ref"}], "]"}], " ", "are", " ", "2.13004", 
   RowBox[{"Ref", "^", "2"}], " ", "and", " ", "15.1235", " ", 
   RowBox[{"Ref", "^", "4"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.560668269296875*^9, 3.560668334375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GProf", "[", 
   RowBox[{"r_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{"Pi", " ", 
     RowBox[{"Rrms", "^", "2"}], "  ", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "/", "Rrms"}], ")"}], "^", "2"}], "]"}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.560232355296875*^9, 3.560232380609375*^9}, {
  3.560232429859375*^9, 3.560232520875*^9}, {3.560668360859375*^9, 
  3.5606683936875*^9}, {3.56066845659375*^9, 3.56066850440625*^9}, {
  3.560668542609375*^9, 3.5606685705*^9}, {3.560668897640625*^9, 
  3.560668904921875*^9}, {3.560668989078125*^9, 3.560668996015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"GProf", "[", 
     RowBox[{"r", ",", "1.2345"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560232552671875*^9, 3.560232553921875*^9}}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.5602325554375*^9, 3.560603406703125*^9, 
  3.5606685779375*^9, 3.560668908890625*^9, 3.560669001734375*^9, 
  3.56069003884375*^9, 3.56075432*^9, 3.560757341140625*^9, 
  3.56075797090625*^9, 3.560762656609375*^9, 3.56076402009375*^9, 
  3.56076497190625*^9, 3.560788227328125*^9, 3.561129195875*^9, 
  3.561129750046875*^9, 3.5617282109375*^9, 3.561789771984375*^9, 
  3.56198253425*^9, 3.562046297390625*^9, 3.56206845184375*^9, 
  3.5623515464375*^9, 3.562354634359375*^9, 3.562465831971756*^9, 
  3.562961647609375*^9, 3.56308663090625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"GProf", "[", 
        RowBox[{"r", ",", "1"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Reff"}], "}"}]}], "]"}], "\[Equal]", 
    ".5"}], ",", 
   RowBox[{"{", 
    RowBox[{"Reff", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961170203125*^9, 3.56096121359375*^9}, {
  3.56096124603125*^9, 3.560961248578125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Reff", "\[Rule]", "0.8325546111576978`"}], "}"}]], "Output",
 CellChangeTimes->{{3.560961193546875*^9, 3.560961214796875*^9}, 
   3.56096124984375*^9, 3.56112919625*^9, 3.5611297504375*^9, 
   3.56172821115625*^9, 3.561789772203125*^9, 3.561982534421875*^9, 
   3.562046297546875*^9, 3.562068452015625*^9, 3.56235154659375*^9, 
   3.56235463453125*^9, 3.562465832143631*^9, 3.562961647796875*^9, 
   3.56308663109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"GProf", "[", 
     RowBox[{"rhwhm", ",", "1"}], "]"}], "==", 
    RowBox[{
     RowBox[{"GProf", "[", 
      RowBox[{"0", ",", "1"}], "]"}], "/", "2"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"rhwhm", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560961266078125*^9, 3.56096130959375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"rhwhm", "\[Rule]", "0.8325546111576978`"}], "}"}]], "Output",
 CellChangeTimes->{3.56096131059375*^9, 3.561129196328125*^9, 
  3.561129750546875*^9, 3.5617282111875*^9, 3.561789772234375*^9, 
  3.561982534453125*^9, 3.5620462975625*^9, 3.562068452046875*^9, 
  3.562351546609375*^9, 3.562354634578125*^9, 3.562465832159256*^9, 
  3.56296164784375*^9, 3.563086631125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sqrt", "[", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], 
     RowBox[{"GProf", "[", 
      RowBox[{"r", ",", "1.2345"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}], "]"}]], "Input",\

 CellChangeTimes->{{3.560232552671875*^9, 3.560232553921875*^9}, {
  3.560668611421875*^9, 3.560668630265625*^9}, {3.56066895478125*^9, 
  3.56066897259375*^9}}],

Cell[BoxData["1.2344999999999997`"], "Output",
 CellChangeTimes->{{3.560668618046875*^9, 3.56066863090625*^9}, 
   3.560668911671875*^9, {3.560668960671875*^9, 3.56066897325*^9}, 
   3.5606690050625*^9, 3.560690039*^9, 3.560754320125*^9, 3.5607573414375*^9, 
   3.560757971078125*^9, 3.56076265678125*^9, 3.560764020265625*^9, 
   3.560764972078125*^9, 3.560788227609375*^9, 3.56112919665625*^9, 
   3.561129750859375*^9, 3.56172821134375*^9, 3.5617897723125*^9, 
   3.561982534578125*^9, 3.5620462976875*^9, 3.5620684521875*^9, 
   3.562351546734375*^9, 3.56235463465625*^9, 3.562465832284256*^9, 
   3.562961648*^9, 3.56308663128125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MG2", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "2"}], 
     RowBox[{"GProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5607592034375*^9, 3.56075921740625*^9}, {
  3.560759274671875*^9, 3.560759281125*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.5607592061875*^9, 3.56075921878125*^9}, 
   3.560759281921875*^9, 3.56076265696875*^9, 3.5607640204375*^9, 
   3.56076497225*^9, 3.560788227765625*^9, 3.561129197109375*^9, 
   3.561129751328125*^9, 3.561728211609375*^9, 3.56178977240625*^9, 
   3.561982534828125*^9, 3.562046297875*^9, 3.562068452421875*^9, 
   3.5623515469375*^9, 3.56235463475*^9, 3.562465832487381*^9, 
   3.56296164821875*^9, 3.56308663153125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MG4", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"r", "^", "4"}], 
     RowBox[{"GProf", "[", 
      RowBox[{"r", ",", "1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5607592034375*^9, 3.56075921740625*^9}, {
  3.560759274671875*^9, 3.560759295140625*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.560759295796875*^9, 3.560762657140625*^9, 
  3.56076402059375*^9, 3.56076497259375*^9, 3.56078822790625*^9, 
  3.561129197359375*^9, 3.56112975159375*^9, 3.561728211765625*^9, 
  3.561789772515625*^9, 3.5619825349375*^9, 3.56204629796875*^9, 
  3.562068452546875*^9, 3.56235154703125*^9, 3.562354634828125*^9, 
  3.562465832596756*^9, 3.562961648390625*^9, 3.563086631671875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MMEG2", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_", ",", "Rrms_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"MM2", " ", 
    RowBox[{"Rhwhm", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"ME2", " ", 
    RowBox[{"Ref", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"MG2", " ", 
    RowBox[{"Rrms", "^", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.560669215515625*^9, 3.5606693405*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MMEG4", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_", ",", "Rrms_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"MM4", " ", 
    RowBox[{"Rhwhm", "^", "4"}]}], " ", "+", " ", 
   RowBox[{"ME4", " ", 
    RowBox[{"Ref", "^", "4"}]}], " ", "+", " ", 
   RowBox[{"MG4", " ", 
    RowBox[{"Rrms", "^", "4"}]}], " ", "+", " ", 
   RowBox[{"4", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"MM2", " ", 
       RowBox[{"Rhwhm", "^", "2"}], " ", "ME2", " ", 
       RowBox[{"Ref", "^", "2"}]}], " ", "+", " ", 
      RowBox[{"MG2", " ", 
       RowBox[{"Rrms", "^", "2"}], "MM2", " ", 
       RowBox[{"Rhwhm", "^", "2"}]}], " ", "+", " ", 
      RowBox[{"ME2", " ", 
       RowBox[{"Ref", "^", "2"}], "  ", "MG2", " ", 
       RowBox[{"Rrms", "^", "2"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.560669215515625*^9, 3.560669436765625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Kurt", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"MMEG4", "[", 
    RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}], "/", 
   RowBox[{
    RowBox[{"MMEG2", "[", 
     RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}], "^", 
    "2"}]}]}]], "Input",
 CellChangeTimes->{{3.5606694453125*^9, 3.560669516375*^9}, {
  3.5606699271875*^9, 3.56066993103125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"r", " ", "^", "2"}], " ", 
    RowBox[{"Moff", "[", 
     RowBox[{"r", ",", "1", ",", "\[Beta]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{
     RowBox[{"Re", "[", "\[Beta]", "]"}], ">", "3"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56076395628125*^9, 3.56076395653125*^9}}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"-", "2"}], "+", "\[Beta]"}]]], "Output",
 CellChangeTimes->{3.560763835375*^9, 3.5607639579375*^9, 
  3.560764021078125*^9, 3.560764973359375*^9, 3.560788229234375*^9, 
  3.561129199328125*^9, 3.561129753671875*^9, 3.56172821315625*^9, 
  3.56178977275*^9, 3.561982535828125*^9, 3.562046298890625*^9, 
  3.562068453671875*^9, 3.562351547875*^9, 3.5623546350625*^9, 
  3.562465833440506*^9, 3.562961649296875*^9, 3.563086632609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", "  ", 
     RowBox[{"r", "^", "4"}], 
     RowBox[{"Moff", "[", 
      RowBox[{"r", ",", "1", ",", "\[Beta]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
    RowBox[{"Assumptions", "\[Rule]", 
     RowBox[{
      RowBox[{"Re", "[", "\[Beta]", "]"}], ">", "3"}]}]}], "]"}], "/", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"2", " ", "Pi", " ", "r", " ", 
      RowBox[{"r", " ", "^", "2"}], " ", 
      RowBox[{"Moff", "[", 
       RowBox[{"r", ",", "1", ",", "\[Beta]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{
       RowBox[{"Re", "[", "\[Beta]", "]"}], ">", "3"}]}]}], "]"}], "^", 
   "2"}]}]], "Input",
 CellChangeTimes->{{3.56066383975*^9, 3.560663859546875*^9}, {
  3.5607594381875*^9, 3.560759491234375*^9}, {3.560759521984375*^9, 
  3.560759525375*^9}, {3.560762416015625*^9, 3.560762435203125*^9}, {
  3.560763759203125*^9, 3.560763780796875*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "\[Beta]"}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{
     RowBox[{"-", "3"}], "+", "\[Beta]"}], "]"}]}], 
  RowBox[{"Gamma", "[", "\[Beta]", "]"}]]], "Output",
 CellChangeTimes->{
  3.560759495453125*^9, 3.560759527125*^9, {3.560762425296875*^9, 
   3.560762439625*^9}, 3.5607626580625*^9, {3.560763771828125*^9, 
   3.560763783171875*^9}, 3.5607640219375*^9, 3.560764974171875*^9, 
   3.560788230125*^9, 3.5611292009375*^9, 3.561129755375*^9, 
   3.56172821540625*^9, 3.561789773546875*^9, 3.56198253659375*^9, 
   3.56204629965625*^9, 3.56206845446875*^9, 3.56235154859375*^9, 
   3.5623546354375*^9, 3.562465834159256*^9, 3.562961650078125*^9, 
   3.56308663340625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"KBeta", "[", "\[Beta]_", "]"}], ":=", " ", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "\[Beta]"}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Beta]"}], ")"}], " ", 
    RowBox[{"Gamma", "[", 
     RowBox[{
      RowBox[{"-", "3"}], "+", "\[Beta]"}], "]"}]}], 
   RowBox[{"Gamma", "[", "\[Beta]", "]"}]]}]], "Input",
 CellChangeTimes->{
  3.560759495453125*^9, {3.560759527125*^9, 3.560759592421875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KBeta", "[", 
  RowBox[{"{", 
   RowBox[{"3.5", ",", "4", ",", "4.5", ",", "5"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.560759600546875*^9, 3.560759633984375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6.`", ",", "4", ",", "3.3333333333333335`", ",", "3"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.56075961125*^9, 3.560759634609375*^9}, 
   3.5607626581875*^9, 3.560764022015625*^9, 3.5607649743125*^9, 
   3.5607882301875*^9, 3.561129201015625*^9, 3.561129755734375*^9, 
   3.56172821809375*^9, 3.561789773828125*^9, 3.561982536640625*^9, 
   3.56204629971875*^9, 3.5620684545*^9, 3.562351548609375*^9, 
   3.56235463546875*^9, 3.562465834174881*^9, 3.562961650109375*^9, 
   3.5630866334375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"KBeta", "[", "\[Beta]_", "]"}], ":=", " ", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Beta]", "-", "2"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"\[Beta]", "-", "3"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.56075966159375*^9, 3.560759678140625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KBeta", "[", 
  RowBox[{"{", 
   RowBox[{"3.5", ",", "4", ",", "4.5", ",", "5"}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6.`", ",", "4", ",", "3.333333333333333`", ",", "3"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5607596874375*^9, 3.56076265825*^9, 3.56076402209375*^9, 
  3.560764974375*^9, 3.560788230234375*^9, 3.56112920109375*^9, 
  3.561129756015625*^9, 3.561728220171875*^9, 3.561789773859375*^9, 
  3.561982536671875*^9, 3.56204629971875*^9, 3.56206845453125*^9, 
  3.562351548625*^9, 3.562354635515625*^9, 3.562465834190506*^9, 
  3.562961650140625*^9, 3.56308663346875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"BetaK", "[", "K_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"3", "K"}], "-", "4"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"K", "-", "2"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.5607597474375*^9, 3.560759770515625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BetaK", "[", 
  RowBox[{"{", 
   RowBox[{"6.`", ",", "4", ",", "3.333333333333333`", ",", "3"}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5607597859375*^9, 3.560759790984375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.5`", ",", "4", ",", "4.500000000000002`", ",", "5"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.560759792125*^9, 3.560762658328125*^9, 3.56076402225*^9, 
  3.5607649744375*^9, 3.56078823034375*^9, 3.561129201140625*^9, 
  3.561129756296875*^9, 3.561728220234375*^9, 3.561789773890625*^9, 
  3.561982536703125*^9, 3.562046299734375*^9, 3.5620684545625*^9, 
  3.562351548640625*^9, 3.5623546355625*^9, 3.562465834206131*^9, 
  3.562961650171875*^9, 3.563086633515625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"BMEG", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"3", 
      RowBox[{"Kurt", "[", 
       RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}]}], "-", "4"}], ")"}],
    "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Kurt", "[", 
      RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}], "-", "2"}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.56066952165625*^9, 3.56066960803125*^9}, {
   3.5606812244375*^9, 3.560681231*^9}, 3.560690346671875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"RMEG", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"BMEG", "[", 
       RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}], "-", "2"}], ")"}], 
    RowBox[{"MMEG2", "[", 
     RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.56066961809375*^9, 3.560669681390625*^9}, {
   3.560669787515625*^9, 3.56066979609375*^9}, {3.560669828*^9, 
   3.560669828671875*^9}, 3.560669865796875*^9, {3.56066998384375*^9, 
   3.560669989890625*^9}, {3.56067007053125*^9, 3.560670075890625*^9}, {
   3.56067028559375*^9, 3.560670289828125*^9}, {3.5606812444375*^9, 
   3.560681244546875*^9}, 3.560690346671875*^9, {3.560763929015625*^9, 
   3.56076398678125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BMEG", "[", 
  RowBox[{"1", ",", ".5", ",", "0.5"}], "]"}]], "Input",
 CellChangeTimes->{{3.560669967578125*^9, 3.560669977328125*^9}, {
   3.560681249078125*^9, 3.560681249625*^9}, 3.560690346671875*^9}],

Cell[BoxData["3.782134336523841`"], "Output",
 CellChangeTimes->{{3.560669971890625*^9, 3.5606699783125*^9}, 
   3.56068125234375*^9, 3.560690039125*^9, 3.56075432025*^9, 
   3.5607573416875*^9, 3.56075797128125*^9, 3.560762658609375*^9, 
   3.560763991875*^9, 3.560764022515625*^9, 3.56076497453125*^9, 
   3.560788230625*^9, 3.56112920121875*^9, 3.56112975659375*^9, 
   3.561728220265625*^9, 3.5617897739375*^9, 3.561982536734375*^9, 
   3.562046299765625*^9, 3.56206845459375*^9, 3.56235154865625*^9, 
   3.562354635609375*^9, 3.562465834237381*^9, 3.562961650203125*^9, 
   3.563086633546875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BMEG", "[", 
  RowBox[{"1", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.560669967578125*^9, 3.560669977328125*^9}, {
   3.560681249078125*^9, 3.560681249625*^9}, 3.560690346671875*^9, {
   3.560758682234375*^9, 3.5607586896875*^9}}],

Cell[BoxData["4.76833320972101`"], "Output",
 CellChangeTimes->{{3.560758686328125*^9, 3.560758691015625*^9}, 
   3.560762658671875*^9, 3.560764022578125*^9, 3.560764974578125*^9, 
   3.560788230671875*^9, 3.561129201265625*^9, 3.56112975665625*^9, 
   3.561728220296875*^9, 3.56178977396875*^9, 3.56198253675*^9, 
   3.56204629978125*^9, 3.562068454625*^9, 3.562351548671875*^9, 
   3.562354635640625*^9, 3.562465834253006*^9, 3.562961650234375*^9, 
   3.56308663359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RMEG", "[", 
  RowBox[{"1", ",", "0", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56066984246875*^9, 3.560669852359375*^9}, {
  3.56066994115625*^9, 3.560669961796875*^9}, {3.56067001209375*^9, 
  3.56067001534375*^9}}],

Cell[BoxData["2.1368026042440236`"], "Output",
 CellChangeTimes->{{3.56066985340625*^9, 3.560669872734375*^9}, {
   3.560669935109375*^9, 3.56066994740625*^9}, 3.560670015921875*^9, 
   3.560670081453125*^9, 3.560670313375*^9, 3.560690039140625*^9, 
   3.56075432028125*^9, 3.56075734175*^9, 3.560757971328125*^9, 
   3.56076265871875*^9, 3.560764022625*^9, 3.560764974640625*^9, 
   3.56078823071875*^9, 3.561129201296875*^9, 3.561129756765625*^9, 
   3.561728220328125*^9, 3.561789774*^9, 3.56198253678125*^9, 
   3.56204629978125*^9, 3.56206845465625*^9, 3.5623515486875*^9, 
   3.56235463565625*^9, 3.562465834268631*^9, 3.562961650265625*^9, 
   3.563086633609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RMEG", "[", 
  RowBox[{"1", ",", "0.5", ",", "0.5"}], "]"}]], "Input",
 CellChangeTimes->{{3.56066984246875*^9, 3.560669852359375*^9}, {
  3.56066994115625*^9, 3.560669961796875*^9}, {3.56067001209375*^9, 
  3.56067001534375*^9}, {3.560670100875*^9, 3.56067010259375*^9}}],

Cell[BoxData["2.611372465890847`"], "Output",
 CellChangeTimes->{3.560670103421875*^9, 3.56067031578125*^9, 
  3.560690039171875*^9, 3.5607543203125*^9, 3.560757341796875*^9, 
  3.560757971375*^9, 3.56076265878125*^9, 3.560764022671875*^9, 
  3.5607649746875*^9, 3.560788230765625*^9, 3.56112920134375*^9, 
  3.561129756828125*^9, 3.561728220359375*^9, 3.56178977403125*^9, 
  3.561982536796875*^9, 3.562046299796875*^9, 3.5620684546875*^9, 
  3.562351548703125*^9, 3.5623546356875*^9, 3.562465834284256*^9, 
  3.562961650296875*^9, 3.563086633671875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MEG0", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"2", "Pi", " ", "r", " ", 
     RowBox[{"Moff", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"r", "^", "2"}], "+", 
         RowBox[{"rt", "^", "2"}], "-", 
         RowBox[{"2", " ", "r", " ", "rt", " ", 
          RowBox[{"Cos", "[", "th", "]"}]}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"RMEG", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], "Rhwhm"}], " ", ",", 
       "3.5"}], "]"}], "2", "  ", "rt", " ", 
     RowBox[{"GProf", "[", 
      RowBox[{"rt", ",", "Rrms"}], "]"}], 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", "Ref"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"th", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"rt", ",", "0", ",", 
      RowBox[{"3", "Rrms"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"5", "Ref"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{{3.560791008984375*^9, 3.560791035484375*^9}, {
  3.56079114159375*^9, 3.56079117765625*^9}, {3.56079121846875*^9, 
  3.56079129578125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MEG0", "[", 
  RowBox[{"1", ",", ".5", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.560791309734375*^9, 3.560791313765625*^9}}],

Cell[BoxData["0.11627043648343235`"], "Output",
 CellChangeTimes->{3.56079131515625*^9, 3.561129781171875*^9, 
  3.56172822040625*^9, 3.5617897740625*^9, 3.561982537046875*^9, 
  3.5620462999375*^9, 3.56206845496875*^9, 3.562351548765625*^9, 
  3.562354635734375*^9, 3.562465835971756*^9, 3.56296165040625*^9, 
  3.563086633828125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"BetaMEG0", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"Ref", "\[Equal]", "0"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "Pi", " ", 
        RowBox[{"MG0", "[", 
         RowBox[{"Rhwhm", ",", "Rrms"}], "]"}], 
        RowBox[{"MMEG2", "[", 
         RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}]}], "-", "1"}], 
      ")"}], "/", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"Pi", " ", 
        RowBox[{"MG0", "[", 
         RowBox[{"Rhwhm", ",", "Rrms"}], "]"}], 
        RowBox[{"MMEG2", "[", 
         RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}]}], "-", "1"}], 
      ")"}]}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"Rrms", "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "Pi", " ", 
          RowBox[{"ME0", "[", 
           RowBox[{"Rhwhm", ",", "Ref"}], "]"}], 
          RowBox[{"MMEG2", "[", 
           RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}]}], "-", "1"}], 
        ")"}], "/", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Pi", " ", 
          RowBox[{"ME0", "[", 
           RowBox[{"Rhwhm", ",", "Ref"}], "]"}], 
          RowBox[{"MMEG2", "[", 
           RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}]}], "-", "1"}], 
        ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "Pi", " ", 
          RowBox[{"MEG0", "[", 
           RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}], 
          RowBox[{"MMEG2", "[", 
           RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}]}], "-", "1"}], 
        ")"}], "/", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"Pi", " ", 
          RowBox[{"MEG0", "[", 
           RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}], 
          RowBox[{"MMEG2", "[", 
           RowBox[{"Rhwhm", ",", "Ref", ",", "Rrms"}], "]"}]}], "-", "1"}], 
        ")"}]}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.560789870109375*^9, 3.56078991496875*^9}, {
  3.560789992484375*^9, 3.560790024234375*^9}, {3.56079033546875*^9, 
  3.560790345625*^9}, {3.560791838453125*^9, 3.560791869625*^9}, {
  3.560792533875*^9, 3.5607926030625*^9}, {3.5609596133125*^9, 
  3.560959660875*^9}, {3.5609597053125*^9, 3.56095975265625*^9}, {
  3.560959817390625*^9, 3.56095982328125*^9}, {3.560959999984375*^9, 
  3.560960029109375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", ".5"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MEProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"0.5", " ", "0.4129939664938205`"}], ")"}], "^", "2"}]}], 
        "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1.4458473030317134`", "^", "2"}], "+", 
           RowBox[{"0.5", "^", "2"}]}], ")"}], "]"}], "/", 
        "1.4458473030317134`"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"1", ",", "0.5", ",", "0"}], "]"}], "]"}], ",", "3.5"}], 
      "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "Black", ",", "Black", ",", "Red", ",", "Blue", ",", "Green", ",", 
      "Orange", ",", "Purple"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560681211765625*^9, 
   3.5606812125625*^9}, 3.560690346671875*^9, {3.560764065890625*^9, 
   3.5607640684375*^9}, {3.5609589006875*^9, 3.560958947734375*^9}, {
   3.56095904615625*^9, 3.560959105921875*^9}, {3.56095917496875*^9, 
   3.560959185140625*^9}, 3.56095953784375*^9, 3.56095987390625*^9, 
   3.560960095078125*^9, {3.56096014796875*^9, 3.560960163203125*^9}, {
   3.560960209578125*^9, 3.560960216140625*^9}, {3.560960249765625*^9, 
   3.5609603524375*^9}, {3.560960590375*^9, 3.560960623015625*^9}, {
   3.56096066046875*^9, 3.560960662359375*^9}, {3.56096074303125*^9, 
   3.56096074534375*^9}, {3.5609608468125*^9, 3.56096085328125*^9}, {
   3.560960915359375*^9, 3.560960919015625*^9}, {3.560961433109375*^9, 
   3.560961433125*^9}, {3.560962097734375*^9, 3.5609621148125*^9}, {
   3.560962341125*^9, 3.560962346640625*^9}, {3.560962439765625*^9, 
   3.56096244534375*^9}, {3.5610395091875*^9, 3.5610395735625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk41fkXB3BL6Ua50chce7Y2SZL6aXl/B1F0M9wrKqNriYlJtrL0K/Sz
JJdJdCmEYibKei2VSSb3fpuUpbpIRBk/ZCm/Sorw+8wf5znP6znnec45z3NW
eh53OiIjJSWVRuKfbHdk+GnD2xM7xf4W09/20VhgpRbYx+Ki+KuH3QzxptzM
bCHLG6oKUxafiQc09GPCDAOQkfbt8TixfXNnZQ4rFD5nwmbfEOvzNQvntSNw
oDSg9RnxNzuvDA/DMxiZHfmhgXgkViLyEMSAhSluMbGL99S9i6xYBG/LY6QS
i6zUahuz4/FF+MktlNhEb0f5J+1EyHssdOISZ8vwigyuJ8Htw8CQCTGj/+y1
/YYp6FK8oSVPfPf1s+ZG7gUkco987mPTCPzR285NkIpY183HK4lfbUiwSmal
g/EgwppNnJ77fYPBoUto0FuTr0JsxyzeXp8tQPc2j9yXe2nUvHuy+b32ZaRo
TUUfJP7F3b0yweMKNmbmeqsQ67a8N9a5noUhA5+RJ/Y0UkqUVzsaXoW1/5ee
jcS7NAsK3vrmYmeUll2fHY0z9JVlf3LzEHdY9WAisZm5UfIBQT4cRPZez/fQ
yFNxiD/PKsAIu0oHu2mcas4Q7b9bgDS4Fj+1pbE/7rWM3qFCXN0leMEjXjIZ
FFWX/RvMLN/qnbChES5JDx/TLkJXV/rpE9Y0OPxXNbcbilBbWLhp3IqGsbXh
ZKxHMawi0i94EA8Ia4M0r9+E3jIORVnScEx76bfPsBQmluXR7aBhZK9XpPaw
FHqz8ydNiRmyvwwN+pYhsHJ8BX8njcN35iruc8tRXbTKefMOGiprLhi7CioQ
KlzZcdiCRgxDuCqRVYXNfh27VcxorLVNPVcZWIWPHUHCtZtoPIs7/rb7YRUq
6r+32G5K/kfW6KbxyWq0rVe5yjGhQc8WGEue1aC5Y8NzjhG596Ngszb/Dtqc
byZf0aNRvfGEYPffd6Bg3iwfrEvDPZAzFWRxFya6rmW7VtIoG2feEQ3fhU7K
y6A3WjSchs9t99v1B2ysIj+OsGhkvoq0qp6rR7Zs7Q0bJo0fNA4U9Drfx/TF
EOk3S8m/HtyykFFyH89VYn8NW0JDayzCq2R9Aw5ZhjhcXkzj+FFzA6meBvDi
JRFlsjSUvctuFG59gHc+UodWTYnheiC/bOJ/ItyaaHu9t1uM991c+WtqYqx4
ShX82iVGvDvjCMdKDGVH6a2tnWIIvY6r1aSLsXPHOYm1RAzFgB1xp7bQmDPN
mlvcLIb4bNdBudMPoTHzt+zsPTFMbynJaTCaYJ0gn56cI8YjYzGv2aQJFwv8
Tv2SJQavIrzuzIEmzFz6uH/3ZTGSa/oC3xQ3ITTg5/efyZzhhpLu39iPYaud
+tcGvhhX2/dUbEx7gt+Pp5grRYqhMB/jZqvVitsuNobZHDEyj7q4G9m0wtL/
duFqRzH0JUY8pYBWXI/U4FXuI3sXdXp13yN126VJ9/aIcadIUF1r3IY0NY2+
Sogxzhn7w76lDZJ6z3K1dWI438h4HLL0Gaqk9tcNz4tg4PhuuDFJgvWfsp3b
8kVQi7K18M2XgPVVcCzkqgjLSvKS5GslWOtiWbk8S4RpBsfYsV+C4YjeR/bp
IrQ11Ib0bm3HRFaT/5V4ESJNYua+/LcdH3Sc7IV+IrQwv/vOmOqEdkTntn4T
EcJa/oXMT13wLfdyKK1uhGqVUq+0dB9kotY7qt9+gJp+qyet2/vxQLvRQvH8
n3jgl6N+YGwAq8RxNvIODZg03MEsOTaEKy/OGvdT9ZD5enOZusEI7iZuOtN5
qw7m87waTukYqpNWODmz7+BJrFkLvfY95H6cdvRRqIX2hdGvRe8mwEhttOdV
VWF0qq+33eQDipXb2iMKK1EwUtekmPIRzsLRFn5qORQ1f38/MPAJufs0XDs8
S8A/Wu2Tp/8ZLm94u9s3FOMzdXPg56gp2Cm9WKIu/ztCTUVVKxq/wKkguHfe
uwB9paKkpyun8STxWqNQko8ZP0nWmsgZ6DpZLpKY5mLdD4vmfOq+wZNfXmkY
kwXbayt9K1TnsOpw3dtDUxkI0zys+8ZtHv/JXu28k3kJRmPOCp1sKYrrujnX
KekiljMnGKJpKWqwN+k3nuEFLLifVaaXLU2t3TL4odiLD3+zuq7F9jKUuard
ZWb5Odzc45lX/1mG0qlN8BxNiMPkqNqyQYEs1WB2XqVu8iyqObay6dYLqMLM
NQqaCdGI2h2XWzW4gAqJdLr0K+s0Vr6ye3E9biHV+OX7kWPCCFhsiU1nmcpR
nmXGzaxTJ+Gm1fpV+rkcpfyuZ4FWTwgmm5L7A2MWURkGBd45HkHIXOAe6qTP
oJS5kSPMuwFY3lt9TUbEoLiP0j5+ovyx8HQM919Biym95+VDJpO+kCpyL+tX
lqdyILLZb30EwVfKkpUfyFOuksYZ9VpP3Ft3jqEUoEBp9OpK1yTwoGQXbHRW
cQn1wia4cyjyJ/Ssb3se8ccSSlnnEa9O6SDKr0J/wH0pFVQffcRjlwt+KjNX
0pxbSvHH7cfkX3ARHZcf01OsSJny1E9uinNCybBmluJeJvVTSrOOQ9aPcFRS
3PpwmknlWNUblPPZOL9QRr3nHz/rXm5LLPo6OTtB7Mm6JNubxIZ5/6tGtRkm
tUz4ckiBWE1Y4hBAbOZa0eibyEY/l+2r8o1JuZ2I/0s7no3QTL7Aa5ZJjbnn
yaVGsVHCj44IJw64vWr1auLB6FC3ZOIVE3vs759hw/Wom24tcU2vu2D8NBs7
LIxK5eeYlNTMI9j9mw25nsfiCuLenbl9shFsoO3+DZqYsfepWlY4G+EiYVI3
cXVTjosp8citLMeF80wqXVqugxfGRstp/1euxCoZyoP3TrCxKPhwwzHi2GBV
Y2diyodz/SyxaWJN2FgoG5X7th29RWzFbmSqE49abtj7J7H8uIl7ZQgb+lv0
NnQQz93aWrqH2H2dqvLoP/3xL+dfB7ORoa0wOU+sFbyCE078f1J0TPk=
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV13c0198fB/CP/fHx8TFSyUgZRWZ25P26Rkb2KhIimaXskR2SjIxkVtKw
SYnqa2aUHSEZley99/j5/XPveZzzPK977zn33Ne5J61vG9wgx+FwxIPh//Mp
d7udJf+/4O/1IrTMoBOiTqyy/Bf9F/5elThNI9kJH4aVW9rPD8O1ZBOL24sd
0KMevBitNgzJ6XgT66EOWCusPKJlMAxlqp4Vjs0dIHP3nNVXu2FYGdF2+vyq
A8oPia5Vxw8D4bVgmalZB3xUYTtRMjEM1knxTNOJ7fDf6wW3xMR/MHTY79KR
260wQBRJMXj2D4x7jw7uarfCjqtTJWPuP5jnFU4lCLeCAozho6v+gTjpMWPC
dAtU9vZnhE39g4t92rZmji1QhW9s9EQj8AUXS3zt3Ay1jhnspjMjsECbJMUQ
9w3eTTo5WayNwM77ilAFz2/w0l7u83XcKHiMzqzeN/sGYba9V5xZRqHL0ePr
nVPfQN2aKfXe+VEIj/Pcjqn4Cu2mYayFUaPQX61tN7LQCAPqtw5TCI9Bp0Tg
gKhTA7Q2yt/Ay4xBYpFbWJ5hA1SqEkrpFcdA8HJ+H5xvgGcqb4xYjcfgcFUI
Rwl9A1ijvwnC/mNwfLFP4dPbepiQMWY2aR2D613OvUp7dbB6SoGh4NY4rKX/
3n2Q/QWwYaXGSO9xWEgnixeJ/wLhGeqB9vfGgZbuYsLM3S9whMVonidlHNJY
6xze634BaTKn9tS6cVD4VqVyZ6MWvPuTYyPYJyDJrIchSKcWdmJXGGy+TYB2
nqqhIrEGVDS3GhV/TICxZPTc4EY1RFHjgrh+T4CrYnrSo9Fq4PSnW/i1MgFO
sX+zZaqqAXPk7tA/MQnXEoeOR7pVQ6CK3iPwmgT5Iv0x4+oqIN/MY2Tnm4Lh
UfK2W3EVwN6qtAyiU5DI3EyLd60Aycy+bptzU9BNkZ3+xaACbmjQpBVqT4EE
t4DcU5YK+JpizafkOQU5l2QCBlP+g1i5Y3IOjVPAc1xq+UbuZ+DwC79e5jAN
t20+y74f/ghSepyqA27ToPv3bIhM40fQ4X3PTxYwDUE+Vdu9eR8hsOXv7MX4
aRBUVaO44/ERhjkUvIc+TYNcrRp+k/Yj5FQsR1ERZ8Ca8YSnkWw5SO9f+2BY
OAO/VbvKr+d8AC3t6pAL5TPAKSVq1BL3Aa6ncenK1M5Ah8H7AG3fD/BIZmic
rWcGoq4wsqdofoDJ22bHhndnYPZTWZ7BfCmk/zH2u6M9C6pmvy+fky8FstqL
StEzs0CmsHdbcOQdsDLmkgLXZqHfSfyqZ/s7ELGg7b+Dm4NzbSs9PZ/ewZWt
Rjcjljm4VeZ1/GfcO3gvfuEV+/k5iO/pDu9D78A2C/C5D+cA69dKqHtRAi2h
km0NZ+bBAlc1+trjLcgxNJPHSc0DX9RnmXmrt5CdYiVjhuYhtUG4TVvnLdwr
jHk+bzwPa4TN69qnD/I/J1xZgw/yoeS+hr+KIVsw46hj7zz06bAO31ApBqXJ
kGJqpQVQfnovYlu3EHxE2pqc1BaA8hsbebVwIRS7HRvt0FqAbb6HvHl0hXB8
r+hY2uUFeNcZVrrSWACbzIMhorcWYPdmqLaeUgEUn5cxNkleAP2UkJOUWD5w
PZrezJlbALMX9FaYXi5UWgXmlCwf1NMs2wmRzAULiUOmnzcWwJYisHOENRfS
e+TKW8gXIUzQ8O3+3xxg5Yz0nD+yCMcbI0djPHKAOZd/WRIWIZC9ZWAjMxuo
6m7MVMUuwnMGJaIowxt4+Xgz7WviIvhsnH3+d+01qNhFa35PWYSK6aWOgqHX
EEIozR3OWgSLc3QZ8YWvYU+P0oGqfBGUtyqXInVfw8bgi9GLfxaBPR57wJX0
CqbXfw91iy0BzWfaF3xSL+GDXWztReklaPzxrY/x+EsI6sVeV8kvAXXDI+cj
NC/hSFnGrRzVJbgbPSx9py8LlDzNdvyuLoHjt6H9K4FZkLrSc4w3YglwjRda
lttfgPpiq5Hr7yX4QCPQ5XQvEw5Z+cuOjywBw4RDn+PtTBjqEOK4OrUEhuP9
5UFmmeBe/PDfhdUloJWlT1uQyIRntzVcj9EtQ2aJ7LGh0eewNlsXWy29DEQW
nZo+7efwcupzEylmGeSTfnrqmj0F5ye6PI4Jy5Bq+IT8wrmnIKPy72598jIc
v3Hj07WjT6EpgyDsl7UMf+6cpiD8yIBFPdPYyfJlcBwMuMSlmwFY2Zph3b9l
4PbdjBDTSoe+e2cHfc6tQAYDbU7ntVR4IVYv1Y2tgLLCey1MORVuDprEiKms
gMjNz+zNfKmAkwmCcZ0VkFuBN2rTKXBqqi3TyGYFZqTHbn71SgF3vZu2orEr
kNnGv/81KRlInG/mR0ZWgGi13N4xnQTo0r3Bf5MrsK745XpvVxK4xlo2D8+t
wKGpXcL65yToIWN982djBfLDRs8ERyXB07EIiwHiKsQ96/5ZIZIEIsWOrV2S
qwf9xjWi1usxaCuL5NWGroKw9i93TfZECPAjpNQ8WIV3EcQcZepEKC4dC6+O
WQXnz/YD+osJwML/zLoyeRX4gopGihoTDvodI9un/FUwXz+9e9sjAW72LEa8
/bEKPgFz2TM/4iHKodT2Oe8aNBURgyArDqZQQQTdmTWoNeDlxGLjQI31Va6n
6BoE/TnhZHg3DsgbE+e05NZglW+5pMYwDnx43T03dddAqi6IP5cqDmx/i4cb
3F2D27QOFYm3HoGicfErys41mBhqKdROjYGnQtmNt3vXwMb8S+ETrxjYoXg+
+WtgDVSXU+lpjWOgvCRW+O34GrD6BElZMcaACOPtUvPdNZC/Im4yHBENHM3C
9R/416H0cNUAWXAUrKG8EfvAdUj9FekYGxUJ/72cTvMKXYf4Gxi5251ICMEL
GYY/WAdz1o/m7kaRQOrIr8lKWAdG9sPD7RyRcMqy8OnQm4N8Bu+HscIHcMn/
rYlRxzrkbfG98v4ZAaUfy1rg5AaItHBtXkX3wZdz457OqQ34puRxq/L0fUDB
svLmghtgysy1fI7hPrSof8zxldqABsRXFzAUDiO9n8JLNTbgvqFe4PmAcGBZ
q0CCrhsQ6EPRfKc2DNzF694f+bIBaOPLDpV5KNhKnnge93UD/GWUKXIvhIKJ
tN9DYtsGrFuGdduLhIK8nKQ1ed8GuFUFW0vjQoFc6SXD3NwGvK40bKJ/dQ9i
9UMd69k24Vd20YuE5RDIvaNywt11E4Zap8bFsoIh3fU53bzXJvzk5HNejQmG
aPedNQf/TQCJQYHvvsFwx/t9q2XEJnjX2Pa2GgSDTBDvXc2nm6D3aIy/jyIY
6mIpe7ibNqFgSGDjhGMQ/C6se/j95BYMJMUWPIwOgI5Zyhnx01vgsMnrwO0U
ANVCF7QShbbgZ5vr2G/1AHieW0+8LLMFpWZtXm2UAWD9uiF6QGsLCG2X5T0C
/GEs42vsuNcWzI69Ya7z9oPZqJaE3dYtOHT/A51ahC8MNRNXLLq2AEs3ob7h
6AttBG2j6p9bkF/KkPNSyxcKI1pZ7v3bgqOsaroRTL5wJ7TtMX5zC35PzFIM
pvvAyt2OJ4d4twHndb467aM3bDv+SBPw3YZnZsjNneAFRtLmcSKB26BlWLus
sOQJ+WRj4RKh27BJYh478csTLJLXXRRituGaoVKpeK4n1NSzqeu/2Ib8kmOs
9zQ94f4JqxXvpm1Iyv3DXh3vAYd6ZrW+su3A8hdzii1xd7iZ6anUyrUDf3zf
7VdxukPdzX2ZTt4d8OvzupiOdwdPCiaeAZEdmIrMvPVkyA36xCQ355V2wCNA
4Nrjh27w7KHvq6NOO+B6knI5bdIVBBVp9mw/7wBt5GqMbKkLFOfmnf5ZvQPp
svR+xEwXkGTR09do2IHrzwaur0e5wPnx5JeC33eAf5bwmemGC+hEn9FcGNuB
AJe9t8ZHXMC1TzvZh3kXbscweVD634GPLoniUQ67QIp/6pv53vmg78te3XXe
hZbHR5ZexzlDrcpgmLP7LkTSnFP64ewMTUdP9ekF7oIz44myVwLOMFBRFnj4
8S4khgvTcmXeAhyhv+Vp9S7kG997ofLkJqi9OGn39ugeYBFnboo9cwTJZNKp
Bo49MBLzrx4KcYQTMdsjv07uQfmnHMk8W0fY8um2phTaA5NHoTsZIo5QoP/A
4jLaA/e1K3HjVQ5wiGzReNd+D5bGlDznx+3ht2W1isanPfgo0c6yp2UHLcYF
FBZVe5BgzNYuKWkH5Zqpta51e0B2+ux4GLsdxMu4o/S2PUiBomrPKVu4wMB/
fn54D0aWp0iPHthCXmWsxGO6fajeC+Z/0HIDvDgtuf9e3QdPCY+CfhsbsNYT
uzRgtQ+B0zbfk3RtQOceWWSv7T7kurfy2MvZwKnJrMXWO/uQmZ+8rsVoAz/e
T1R/Ct0HFy61Po6K6yCm5WqZmL8PHFf162rYrsOEb1i62s4+5NjmL4aPWsHU
JUH7TBwOWWTF/RzotIJrC4fIuShw6J9MnLRqtRVo8oxKseFxiHW9mtowzQq4
H9zPYGTGIX6/3DoDAyvoMGq5ucuHQyJ2wlZ9X66B0IwxXa82Dj3INZDatLeE
ciOtqkg9HIohaWAuFyxBuULJDTPEoUDSM28mbku4EiPa/8oEh7j+VDV/67eA
B2K0ee7XcchM2nqfRd8Cxtz/u8jsg0M82gpDc0rm8HyXO1L7JQ4pbFM+DVUy
AyHbYxjZGxw6WUoeXMhjBmVtDEvvc3DobULPhW1KM2h7tmPKUYRDQ48v9+40
XoFdxR6B6Y84RCfQ25WmewWuhD/4FtGOQ6sSxgmnb5jCIYYFfN0WDsmsjc65
ZF+GzorI+xq7OJRYeDXVK/YyxN/ko27fxyE2bOTlE8/LwNx0heIXJRnq8xqx
O3XhwGH1u/MkMkTbrpp5998lYNxOXWLnIUO/XDU5Z3kvAXH8woCbJhni/K9k
SOKT0cG9/3NlU5sMmXphWfovjSBK5W5fgB4ZUj4dFxIeYwR0L4p7HhiTISNO
ZjGp60ZAMGf//sySDAn815qZRW8E+K6F+mY3MjQwk0hfbGsIlFVpRTzpZCi5
jjN4lN8Afp1XUf/9lAzduWv37TiLARR9mvmTmkmGLJ0qem7v68OVDwrMzG/I
kMrEaJdJjz68LfjtjishQwv+l22Vw/TBIp1HbrCRDPkKWtZcH9eDcp+8uqRl
MvSNeYT/vLcuxKwbmhuskaFzsUcF5Y104brHzir9JhniHlO3uC6mCyQX7dNh
e2QIPpqmiUzqwA37+QdutOTIdOqvcd5VHWC+LKGrx0WOZIbT3hzW1AYnyc99
tJrkSO5VAK+XiiZUd3Tnl2uTo4tjYzY9fJpw+NZCoJ0eOZLdvEo0odGEqld8
p+qNydGps8S1mqaLcOjoI9ega+RIU+o4lZDhRfi8aUO37kGOPPQ4eWQdNYCu
iqQw8pwcsT2RtT9brAbXzAQYE7LI0c/M5F+PH6tB6bryP8XX5CgiZVeU9a4a
WIr5PHiWR4724f2uh6oavMv8133lAzkKu8wREj+kCmah5c7fm8kRYoyNF2dR
hTwN6+eVa+Qozk3W8GyiCkgKncRgkxz1510UygxQgUrSn/6qbXLUpBuecdpB
BTq6zI/W4CjQUe/fk16YCqyYm8Z8IVCgfi71FJ4pZcBc9fy+HqdA34NuciRc
UIaOVMykU5UCPSog/yNFVAJT/91VAw0KpOQuUKK1qQjDlv8ldGlSoJQgGmOv
MUVY4ZVr/6FHgTIGFz/S1CjCsSIp1d4rFOiPkHc1s5ciWH8RkhxwpkCG/+So
q8cQrE6zMY4lUSBmn/Du/jcAiRnjjekpB3le3cGRewdtXfd9oGE6BVouNKo5
cg3ApUR7vjqTAumUpNqssALMege1peVToBxJYab4KAxGqcai9GspkNTEcQ/R
uwrQzfWWtmKWAtlqkAyq3eXB/bt/jdsCBUqY+doaYywPh+5d9DmzfLCeEf5T
kLQ86I/9m3iyQYHylKSU2zbkoDX/yFdXCko0GMnxH12gHNSf8wvnP0aJzlpx
bM3GnYNSQzWKRBVKdO20hJBqhwxEaJaHcahRokaZa00UZTJwVVkA/0qDEg3P
h0gMZMgAuQQd/QcdSlSFY1sdcJIBHeb2Iz9NKJGJveRJdloZmOi4dIbjFiXS
veDf76IuDWw6tvovH1OiJ263y1r6JGH2Qm+XUDIlCo8W7y/8IgnVCuqXSlMp
0fZstHt2gSTYCp8xa3hGiXY5nr38GywJ74hzNhM5lAh/Y0zNQVAStJo9vIUq
KVHM0p55eYgEBKqHPXs/RomsG2wZ3iqKQ6eF/VWxSUr005qNoVREHHg9NI/l
T1Oirz8iW1rYxaEpkykha4ESjTemisisnQWW7Yzw+C1KpGM1abyadxayCz7c
ukOiQj0dxTlU7Gehg3lCXkiaCl0IbTWboxYDboHmjTeyVIhitaji/owoeEBh
KY88Feo++J8YN4sC2013UXZEhZi6i6VNHoiCTT2Oh3CRCqlEVMWuU4vChtcx
woT5QV7q7aMAvAicHLz4MyuMCjU+r16u5BGCyFr5IuOIg/XChtb2KYRg6Y1Q
OM1DKuTMH9lkMyIIta4kSadHVIjq+zGllFeCYIPvjBVPo0JZp5aYcgQEIVvC
VK2mmAqNex9pUJQ9AyKRdh+G+qlQ5Mf6LS1nfki6bRL9aOig3lTQ8QoDftg3
0rBR+kuFpDSsr2jJ8EMHlyDz6zEqtNd2K6YRxw8upXO3bi1SIS8Bbnbhx6fh
/R8Pvh1qatSHaQ4nfTkFcjKhicfEqVEasb52V4oPeqyPSWdIUqMHr61Nc7j4
wC2msPeEDDVym1lwuUnLB/mjP9n4z1MjM7qdetlBXjieKJwprUqNyrwVNcfD
eIF8safA8Ao1OrEplRvezwPNuQKN0SHUyM63qfvME26w76m0ZwqjRrPq9ZnJ
97iBktyI8Pg+NRrhk8ez3+EGzDRAOz2KGoUfntE21+CGYpqurtwkarQWm23d
vXMSEm38/jTmUqNfERbCwXYn4erx9k2yLmqEm6POktE8AaRjrqWfu6lR3TY1
+3PZE1Bz6LCLx09qJGbb943z1Ak4RWs2MTFIjQTqFZxMyE7A/PJYT/sENdK1
oTn/yIULQr7tvcvYo0YGpUPqm5eOQ7a7iPO5MzSoIgRpSAEHXLn9XWBZiAbl
SXUKbx3nAHpH99F8URr0PBLr+7fHDq6Wn66ekKJBBMLOAG8VO8hfVNWkQTQo
3qaJaKrIDm1cFvzdxjSIWnpC21aLDVaboofvBNMg6emlsv27rDBA122/c48G
WZErXp6wYoVaLY75++E0yDdTr25GjRUeteVuP31Igzwc9eLUWVjhTGcjS+tj
GjQXs1atXngULPrI1ARyaRAm0SZsMH4EGsY98v520qCEZ0X89TcPQz5/xdlb
3TRokvW444LxYUhwoCzf6KVBGR9H9iXgMFybjq9jGKRBEUl/qymYD8PWXNGg
wjgNehRw51ttOQuIrk0ypG7ToC6Nwh/ZBBZIprRwN+DFo35WbnCoYoa960el
vp/Co//ix0c685jB5kvHqq4AHg1GJZPpJzODWIiyl7YIHk2d0b4Y6cIMX/f5
fdVl8egFoaNxjpcZ1reWAzEtPLreVnP2ViwTXFp88PCMOx6tLT0/VuLKCP/p
KWvleOLRkX7uHyFWjMBdvEPk98Ej7+z5kBt6jDDnfDuGLwCPCvbdXa+JMELY
jFHciQg8ekQdctK4hwHej3M9OZKOR26jelH77SQ4NFT6grwOj+wu3ku5PkCE
GKK/f1kDHqmqxa8UfSYCQV7F5OY3PCL0WZmfTCMCeXInfU8bHvU2Bxe7XiHC
kv68d07fwflzfnU0/aKDjnp+Xb15PDpK1ishPEyAqIK07Qw2WiTt9DjrFYEW
8APWPQactKikkrn/whweQgln3tKcoEWPaijPUXfi4a5dua0LHy2KpvjYM5aC
B8eT3d9VxGgRI1XgGx5BPKg/JmVPX6BFl90vJ940pAEq/2Cjcy60iOLSG0vN
T1TwfnFms8qNFuHnInT0sqjAxtbkmaonLVoi1Dy8FUUFdbqiU4Z3aVGW/t3I
BQsqCOUeDHQOo0UpI4vth6mogPKrbF5WCi0KLbZ50GhMCeSHFshItbQogXYg
mBNPASX3zd4k1h3s333aaWeZHKx3GrTYG2nRcU2F5wu/yaF2NOMJfwstul5b
EM1aTg4h5ZrCyj20aLGVlc7GgRzILN6YeE/RIveC9Ms97WSAy7EoGmYmoL1Q
m5MJeThomOl1fnaYgMybRbO9k3EQJaYvcpWVgM7GXTjkHoaDo+XKBd2cBJQv
wCKeb4kDkUb+vK/8BNQk3vfr+GEcXB1del2IEVCyytjKAs0+9vHk/ae+jgQ0
zuVwvujvDhZwA2chc4uA6ow2riZV72AqOT6cK7cJiIGNwynr2Q7WIXYz/ZYH
AYkse70QsdjBJkA/9VoQAYmtlX2lHNzGjliwJ6kmHeSLPWYj/25hrqlF0cy1
BPRRAifwh3ITK9tJvV9bR0D27INjHyc2sB2L8GDXRgIy5M3Se9eygd3nMffo
bCGgdeEHKZSPN7D0fIJ5fC8BsUW28XKe3sDqK28IMc8SkNOf+Voa/XWM9R97
MxMrHcKo2al/flrFzC/Q1New0SGZaL7TN16sYi/eLFW6cNIh2itCTfSRq5jQ
zW8l37npEEEpjO2t6SqmuOqZGidMh7hFLkee31rBHGk6HZiU6ZDcKUxVC61g
FYIReCZnOnTJu20/5PcSJv3jaGv8HTpE71Ji9K55CSv2exPH4kaH5B+bemyU
LWEvWhvYWL3p0HbFh9rqR0tYxG0qYa4QOvSZjVFMTXkJM3gXoi+cRIcGDyuX
sOYvYuNy/qkalXSooqCgQiFqAbv2j2jZXE2HhN0ezA35LmC/HqbzaH+hQ20S
CmbxDgtYy8DnfL2vdOiO+ts0UbUFrCRgq/JyJx06U9TySpFiAfOr9fp3Y4wO
udhpMNjtzmFMF12FQkhEZB/wxvMZ5Sz2vIaBTo6JiNJPYEUp/2YwsXMFk4uH
iMiRqOD3sXYG0+GfeG11jIgyNRP5HYJnsEhqi5OKvETk4McnEIqbwSi/aBzB
yRER84rXlVCqaWxN/iQu4AYR+Yv2RyYITGJh7yqHpOyJyEZkhWqROImxCF6t
mHUkorviYkdvL0xgEmxPfM3vEFElacyupWwCu7NBXD1/l4iC5DUradQnsMn3
G5Pbj4goo2n1tZXzODYg3NHl8x8RcW4pTxd8H8WeTTP5U1QRkROvV2bAp1HM
OsfwVHQN8eA9dNmyyxrFJnl7vZ83ENE7Mx6hUI9RbI19iLOxg4iqynTKf7ON
YkyEGTuW0YN6FyU46B1HMNUxmp1CenrEnmLRknDsH0b7UuOVLCM9EvSzFVGn
+oe1WD3UqWWmR1dlsJPMi8OY4SAps/soPZI73mI+9nUYu/bjsOrOSXrks172
IdpnGLtby/NIQ5oedd2jNq0b+osVPwXeEQt6tHz8zdtz5X+wZd9lGisremRZ
otDS9voPJn35zfTgdXr08dMvOs/Hf7DPDAzveu3pkYDA88It1z9YQ9CQYrPr
gQumPH6J/MH6rf0tS8Lp0Rdp/vZGw98Y9enPqUGF9EhWsVdYyXQQ06C4HbBb
TI+MCzsvFskNYlG/ua1939EjTT8HxfMcgxhTcqSAezk9mpzrki79PYBx0F4p
t6ulR/O/SLlc9gOY+PRGt04PPSqPEDP/FNCPmRdJM3Hu0aOKdCM2wdo+7MOV
DVIHjoT8lrpuMrzqw0jUn4j3KEhIB0f9kiWiD6u+qoCfxJOQrOmuYLBOH8ZN
UNl/f4iESn3+Sxsa+ImN2ejPagmQUB3jiPbD/V7Mme3mNz8jEjI+Hdv5wawH
a6gXbhS9TEI0xUebXZV6MC6X+bphUxKKHKzV0xTowToaXavVLUnIlvtJiP56
Nybu4VPG4khCTKs1ZEWJ3dh6e/ir/EASuhUzOh//4wcWFJYZPJBLQgnNKxUC
9l0YvRfNRasCEro8fEykxLALS7W/xTxWdLB/c7ykHnRh7zTPZc2/JyGt6Yuv
W450YWNM3+vIq0joB/Yvv66hE9N8isMLdJFQt8T7rowzndiRMssYj20Sun36
aJM52XcsK7v+0tYuCXm6TKU5z3dgYqmCXIE4BtRE+HQ5frAD0/BfL4qgYkA+
CikKzJ86MD/l2O9pDAzI33QredGtAxtur2Sp5WFAc6ccSfI97VjBBGcaSYsB
7ZabXtJqbcX0cuL8v+kwIErCiezzea3YkgPVtVB9BrSw3jJu+KAVk52e4d26
xIDSn7AErl1oxWpnPxeOWjEgL0eK8zQ1LVjPkmntf14MaH30Bv5sZTO2v/N4
0jGLAf2Q1MgO6vqG6TORZBu3GFDN0FaZn1UDFklFzj5w4JbDNU/KrzVgdZur
uwsH/rupELBi2YBJDw9+YdtmQIeGrljetGjA2N4V6DofGN6wuV41a8CGjbTt
Du8woKOtAX0Kxg2Ye3JU0vVdBkRngBVSaTRgBVFBPt4H7ja2t1FSb8DGgtyv
Rh+YoljxZKBaA2bicJW77MDU/mRFGxcaMAU5oULCHgNSYi5im1FqwKgHmuvf
HrhpMUb8x/kGDDqqshsOPDQZb8h0YO+6dw/7D7wXq3RXR74Bm8pP06faZ0AG
O1lDX881YG3+ToMmB/ZZtF+tkG7AaFwtq28dWGn1i+a2VAOGbA2zQg6c0PU1
W/bAJTryDvkHNpVu93wn0YBNK4lq1RyYVbVjfEG8AeOV4RHtOfBPVV9LkQNb
CB5lnj6w/F7LoNPZBuwJF93q/oEJ4l+tc8QasP8B75IUrg==
     "]]}, {}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV0nk4lXkbB3BbkopsGaJT4QySVMiSvs+kVFTntSTKHGTLki2FvKljMDXh
VSQh2ZJd9kKR8zxckSUp04IykkJMkkExv/eP+7qvz5/f+/6uP+5n5SYkICCQ
QOb/29xt5Gnjx9M7p78qDfi4MRAxVfQfULDBJ3a/pTfxtlvJaRUKrjhVaFLg
TjykpMoLZvtCTXnnCJfYor23/KZCEL51/7Xchlg1Rvn2IisUWm915cyIv5u7
XHdmh+O4rKGIHvGnyB7aOYkH3vzsn+uIj7jOPLiqEInMvoiEZcS0qWINPy0a
Mg1vt024MtBRMbn7lXUJFk4bap8Spwk55atlX0aLiR27jFhsMCLLlh0HgfjE
kFji2rfd7XybeLhajN51J/b/j6u5Q9IVqK0L7NxB3Lf5d9NYhUTo8PwaBlwY
JN76qVHt2DWs/knxShGxuWTBjodpSXDuc9h/hrj68xO9CdYN6MuxfQWIfbjc
8t+dU+Dk8/lV43EGGzomtNdlp0Kgrls7nDiuWFrdkp0OL4nomAlnBnuUc3I+
etyCUXtOUjZxeHPKqkc2GdCcCb9oQ6yrrxVrn5QJy0V51WInBhlynOg/FHLw
PG0tZejIIKz9Om1bmwO2/aHYHi4D26i3QirHbiPMoI3vQ7xiOuB8XVounP6+
Np7wK4OQnsSQMVY+Av23Gj84xsA6pq/6XmM+VnMjXoJYezd7OtK5ACmbWS4N
R8k/K2oClLMLYTTqaFhlz8Ay4ZXXIXYJvrhRc2FHGGhZqOQrtpRgQF57/r0t
ubewz4dhj1KsHX7+8QCx4/2Fsgabu/DuKLgidZiBnEa8tl1SGdoTNOTOWDHg
iVX8fEmhEmZbRFF0gIHm3isXy/0rseqeqUePBYPuKL+Pr1sqcW0ya+4fc9If
Ya1C7TNVcNAUddu+n0Hzjxztnu5q5Nak213aQ/JOJemxYu7j11PXd0eYMKja
cjpp31/3oRmt7hGwgwHX33omwKgWMUuHFhyMGZSOS96nR2ohq1YUr2HIwGrk
4g6vPfUwi6yzTNZlkNx31rRq4SFSji6ZeqLJ4Bcl+5z+ww1YxwQ/+k2D9PXo
9iVixQ1QMnOU2q7OYO1YqEvxpkbE148bJKgx8PPUVxN404hyU9WG9esYSLuW
5t02aMKRxG9+ybIM7OwzSyf/pnEoLF9mao7GxGsb8SxFBoo7v0vZz9KI5oq5
WZsyuPq3P6t+hkaFi59idSLpieMx79CvNCR8TaLCtjcjRuLx265xGkzEy6Oi
51pwIv2uzNcBGluLpESVxFrBF+k4Ld1E47E249Su0wrbQjVdpUYaTmUhdeH2
rWgTtl2v8pBGbPWA/7uCVnzfdCNGvZbGSGPx69yDbXh15TgjVU4j/fn+si0J
TxBdblvLzaSxfJHnsHdtJ8rZiW2fztFI9jzC1TLrhFmshG5eGA3VHi0nKd9O
rBnevdwllMbO/F6X1w86sa/wpvjTIBr385OqarS7wD6y3zfOm8a49Vi9RUcX
is1ie/9nR+Nw3vW2Uyu70VGf+7pKh4aa5ecR/uUe2HjFO/W+5EPx/F4jj8we
vIp5pFf/go9VxRmXxWt6cJ+neSL9GR9zYtbaloM92GXxefRoOx9djTWn+g2e
47/mUVmVjXyc1eEt/PP+OU5oPPEcy+WjQ1JWVpvqRVJVVvTZAD6COwyR/PUl
rE/G7Dq32AT5Sql+QcEBXO9s/X5StgnVg6ZPOncM4uDos+Sb841o8rq5xn5s
CNY/TtVEFDZgmm0iWXzyAx5mDOtNBj2A0GzhqjVqnzBUAqUMsTroLzpVW5eM
QWN20Me67R6eROp2NGtOQEgz+F7pnWqw4kdn8z9PovaSQfeVk5UYnRnof67z
BX6P0wV7Tpcj51Ndq0TcFIbkzfmTZ+5CQvnOxNDQV2gz7HgdTjFiPKvcM1S/
oYO/MLtNrwDfqMKhE+dnYCB/sCFa9Q6CttKVq/n/YNWRwtPKcTkYKKEvP10/
h487lfU2L8vCvFdPqsbZefi8f9oVXnALG39ZuuBe9x0bstsuiAmmYW/Weo8y
+QWk7jq/xz0sGcHKjhveOSyigd8pUJlwDVpjh5f3HhSgfKwu36hfmQAZyUkx
ek6AkjZQq4vNiYdIQ2qpSpogNWx9QybgcCy8deteLrMQolRlKauQxEso3H88
4+E3IWrorJWqHDca06OKq4aThKlW9XlT9sPfUGW9Vzhxtwj1yM/LPYHi4fy+
qFuVwyIUq3HfCemAcKzvM/8zO2oJ9e6kitDU5FkYbY9MVNgqSrl6d9RU3wyG
w9rOWcFnopS6QmSh6IcgTLfGDvrzllKCvs+MQmwCkSzCDbJSFaPMRDUqhIz9
IdNflSVEi1GlclPaUy98sOQcz8YwYBk1WXb01U43Twjkc0sHpcWpwDaN8ZEE
dwSmlMZKN4lT+za3PeUNu+DBxotiUr7LqYI/sg65pjhDyjxQK0JiBTVWo14R
7OeIN5u6noXWr6Deqafu3/biGO6mQ3WIu5JaZ9zJYr2zw6+l+lLKCyupvI09
LYEcW1yIyuS9KZCgpib6o/v+tEbxiHKqxAFJ6sxPwSXNXZawlJIwaJmTpG7O
rWjyqOfgjyVCa94Qb7qnOjtTxwE9O/1jkjiobHzLRWL9wT6+4rwkJWqckJdX
y4FiRTHHl/jHXxsLPt7jYNDmoIfcd0lKnBu74F3FQVByTJLLD0nqavjAaEAJ
B8UxF0JDiGWEpeyFiIcvBDnEEpu9+9JytZgDO0+HDTXEyXEtBRVFHJgYaZWI
L0hSJh8qIqcLOBB908aUEU+4Xr0UeocDdDXkNRNb6TdLiROH0BWXXxPHTean
puRy8Kko1XLJoiQVLMyrrLvNQcc57z474mt9PnM/sjlYGujYeJI4U4cVH0dM
uVtnRxAr6/J+ZhGXHzL2LCIO1LE5RmVxMLpr84FHxJprmJmuTA5Ut6tsfkFs
nPL+mjMxd6O89ChxTG6V3pcMDq6zlk8vEisa6vVGEP8LI4td4g==
     "]]}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV0nk81PkfB3C3WcoQtoxk5Vg2K/UrVi2vr3SSMhmWyBEltTlKh7aITZer
0JSoKNomjXOQK8x38KMoGqmcTVbO1K5jteH3+f3xfrwfzz9f7/dLb2/wrn0y
UlJSyWT+v+33DbbWDB2zqVw5nTM1SkPOjhXSq8WBzMAR50ni/9y5kV6k5Y+F
a+e2fSbuX2oQdcIoCBst0xKHiR2aOwpvaYXh/WFHg3fEBnE62fO64Vhcq8Vo
J/5q73fd1ygCkkiF9fXEw+fEIl9uFDR8tKsExL/4T1claZ0DO8I3IYNYZMcq
pdPPY3bP+9xLxOb61vkTupewfujRshDidBkfnuG9WDwLedrtTMyQRN91NUrA
t48cR9cQl/e1NdOcK1hUZmevThzi5G/vyb0Ko6XV0x9HaHSvvGAXr5UCj6kk
29vEKXeW1Bh6XMPi45o9ocT2zIc/P0nnYsYztGkDccnHZ2vHdVPRLF6S3DVM
41cvr8ILvjfRejs1OJt4ecu42Xf30jBl65V+iDiBv8iYbXQbwf2mH8aHaGzS
ycoaCriDlm0n5HOJI+pvqtZyMqDHOR8WSLzGwjTenZuJ+6ejN70epJGhufP8
Za0spJquLr32gcZvzddFruVZmJft8LYhdo3pk9H3yMZf0jG7+wdoLJgMjaxI
v4/e78o2GxOfFKecHNXlQRz6z3xiPw3nuO6SxzU8DG11ttEnNttoNHnO9yEW
lnBeFL0n/ywqDdW5lwPz3Ws+PZPQYCe/PbjDKBehrupGvX00TB30eayGXPiX
b2LsIWbI/vphICAP3lka1OteGt5lcwXVnHz0m94qqO+hoWlyxcyNW4DDPVZZ
v3fRiGIUfX9JS4Aj84bKER00fthy9WJhiACPmx3qha9otMUED3U2CGBis3Wf
HLGBrGmO2fFiNPpznSLENOpns8zEbSUQDPKGtreSvH9z1+rGlWF2x+sUlyYa
xauOcbe+L4MN92nDgUYaXiHO06HrynEqpHDg5H9p5I0xy0SD5biYfXc4sZ7G
rsGLPx/cVInYpkDtVCGNG92n7IrnnmB+QTBvSTkN26XuWT0u1di7sPH9l8ek
r7st5Rn8apy3Z2i8LaWxbDTcj/9jDSy6PrslFtMIDrQwlOqqATd+4kJ7Po1F
/nkPsn8SYm/SraWt92m4uWfmffosAj+Hir18hcZ4J0fpLqsOOjEDrkaJNM57
MfY52xHnqCRVx9Mo8gtmlaTUIdSyzX34Mg2VIOuY3yzrsc7pvZ1eDI266De7
Fc40YPucmalmOI3Vj9QUljKaUFXM6GF502g0q/NpNm9C2vIu7f17aPgUnKyI
cG8iecYkuR404kt6Q949bIJX+w5VKzcagzX8zvuOT+GkqihtzqZxu31bwark
Z7i5Ll+et4GG8nyU55ZlzxFu2bqqRZ/cK/AXL9PNz/G5YuPpV3rkX2JTH7Wg
55DOz4zp0qVhw+vw66x6Dp/48dfvtGmU8bjFpWYvkCgzld6qTmPMebTSoeUF
puzTjm+WpeHy4PrTowvbELmvNzKuTwhD9sdBOlYMPUGFbV2KEKzILesCMsUw
KUzVYCYJocrPiFUqFUN369gV10QhvjCczdgSMa6VjMX2XBLiRU3p0Z6f2rFP
3aW4LUKIU+ZRc//82Q4XmX5jxwNCtDA1NMyoDii7NXpcsxLiRIsVbky8Qe1a
tbGn7bVYLFDrkZbuxajPS2U/xVqUSOyePf9ZgvQN4qFMZg2EB29pu4/2o8bx
0f4+zSeYNLJm8g9/QPsK685dSyshM5Ojqm04jMoebqTTeBks5n1KnHNHwQ6L
7FAaKsWzc2ta6n8Yh8Pl45tvTxVD98rIDO/jJwTYitfMjhRhZLq3p938LyQr
9ybRrEJkDVc0qST8jd+3UZ1uyIeKzh/j/f0TcLKqvBCtxUdcYPH+DIMpXJZ3
bNdb8RBTVE7/gchpLEPn42H8gbDVIsG39D84qKq04xdRFnpzRbGtel/w4Kif
aj/nLv49KE4zOfUvGA5LQrkrM7DCVnFuf8VXLK/e8/35hnRsuasXULB4DiHh
/sZvtqfihI738nee82A9TMo2DuTCdNRFucNRivI6/WX4uiQZ6sxPDNEXKWrl
0Iay0bCrkKtOy9NPl6YEmt+uujiYgENrKt584yBDBSwJd6/TiEXOtr0ZT6Zk
qJgVVZvZjRcwOcJSHeDKUvVp1Ii/RgyKnbfIpmyUo4KDWN8HRUYjcmvMHcGA
HLX4R7vmON+z0Ou2f30vRp76kByYNLHkDNZZnkvRWq1Are+TbuelhsNz2fMZ
6ZcKVMhRaePKiuOYbIqXhEQpUja7Rw1npMJwQ84rbJcBg5KYlD9hi0Kh3lN8
V0bEoMy384w1ecGQPxPFsQr9hnJQzBacmToEKZ5XnmSRElVtPJxvM3YAR27m
xS8SKlGNVn/V6zH2o2rFRYZakDKlmJmQKnvZD2r2R0yjVRZQHKcTvg9O+6Lr
xxcvwysXUIpVh49FKHsj/zYM+r0WUsPcoumIFg/sybNQ05lbSB3KKK0L+OqG
szGZUV0PVSjpnYUGlptdwR/USVPZzqRu6L7LMmdwwFZT+anhC5PKF+t0xPWx
SQ9ktLuI1axPjewgFs1Mzn4i3jlRK6VGbCHppln/MqlDlLrZtV42WEX8nUHE
fX9WJt/qYUPCcQzQ/MqkRDomsbldbITdiOP6zTIpG1mHH1pfs8GPOxt+kthD
VskzmXjgbJhnPLH/26IEF2K3QM/lpcTWcw1TbzrYsF5nmqs0x6T0BJ9bJa/Y
UOh6WldAzEnaIpgQs4EX1Q/qid+icKKE+KSoKLaTOPiiokU48fCjNLb8PJPK
6wytmH3JRsuZQ91uxPN6m1oViBWPeNccJlaFnFZjGxvUfud70cR4w/eNJS7c
sT7wEfHssZpJJvHIhpXba4nVQ01s21rZMLDUX/mKeOfb0/EpxF4rFi8aIZ7h
l791Jb6uqzw5T8wZlBhrEf8PrMN4XQ==
     "]]}, 
   {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwV0mk8lfkbBnB7ZyjHMhKRyslUTqhENel6GiOSVA6yjUKTPyZOYohBRJSl
xToSibKTPSnLY5tOWZLGiMMkiWJoCtnn939xf+7P9+V139cGRw+zn4UEBARi
yfx/G/888qJu1Hv/a9bNczkLNET0FbkDCubQ76jdnU28My0ppVThNGqf2Mdk
Eg8psYJ91NyhVMv1TCU+3NpdclvBC6V9X4fiiVlRyveWVS7AwWL+3VXiBWOn
RAe1QASmBngHEH8I7Wp0SAhGj9Pl2LPEJ07PPLmpEIqKcGXKlrhRX7GyIeUy
Wjaa+B8k1lLVe/BF5QpUQpUMNIlThE7lbMqIhPz25NtyxIzBkLuWajHwePci
dHaexqO/O1sbzK9DJvbF3Gti7rHTxnYJN6DkmL1cRczXDNePVohDuOy6Ci5x
XNqauk228Qg3f+NsRGzMzN1Xk5KAVV6N2crEFf883zWh8juq7ai/6uZo/GJv
XxLukAztnStaYog3tk1orM+4hSIhYwMb4pgCmc3H1VKx40v+5OgsDQPlzMxR
5zTYtIusKyQObE6Wqje/g0g5o14PYm0ddrR1Qjocbq8SG/tK447c0ctXFTKx
nzqwvmWGhn9rYqPlo0y4ZSZ1+BBbhv0tpGp7D8PUF2k14pVT54KqU+6D5Wpr
5D9Nw7crzndMJQes6owIxhQNThS/4mFdDkxK2prufaGh8aPaVKhDLpazneIp
4qHSynPKGXmQpuLH3D/TOB772tVUrRA7qvgXCz/RYB9WzVFsKUTW+OoTu4kZ
wr+8H3Yuws2IX+prJ2mcrFoqrjV/AF6rHadlgobclusaVgnFcGSrnq8apxHM
KP3uikIZFgYr+7aM0thqeCOihFsG7k2plqARGp1hHqO9LWVw+P4jv/M96Y8w
O0/j13Jcsa66yR2m0byYqdHVWQHPAHnW1bck7+eEXSpRVXB8pnhQh0+jfLt3
gtHbKnhtX69+so+GPZczc27vIyT3FOiH9dIoGmdWNY48guxvttJPe2iYjUTs
czV4DK0k9W2af9JI4vvply/VYOv3m/nebTQOKFln9lvUwqdPe49nK+mrja4o
o6AWXnlnXrg9p7Fu7IJTwbY6bKxKfGjJo+HhorNJoK8OMjby5yWaacicLsq+
t5tGW0gX69NjGlbW6UWTnxrB99q6rSSbxkSvufhdxSZ82PTSwT2LxmV7xs8c
/SZ0eZtRm+/TKHXyUKyIa8K1f39ajMugIemuF+av24wYfuYVs1QaTSE9NmIB
LVB96hJoH0tjR760mBKDh7NrhvNr/Gk81Wg61arFg6iJutt2Pxqnin2rA615
4KnfGk33pRFdMcB9k8vD31yJrb950xipK+i9f+QZGJtft8l50Eh9dah4e+xz
dFv3WPU70JBYDrYzXNcOCfFt3/EMyL1cTtizD7aDLXYsb1mf/KuLfUravR0P
eOYqO3+gsT+n26n3STvOrLF9HbufRlVOQnmlRgeCHo6X7tOlMc4Ze3y4rQNu
F/zL2JtpWGQnPju/qhMR1w9KRTFobDr+z0hDZBfE3h0Y9G+oh2KQ4V7n9C74
1BaOCtXXQ6rgTqR4ZRf4azufhtfUY47B0Tg+2AXLJE+FyKp6dNRVnu/f/QrT
o82KvkX18NMKXvr67hXkl0Zbx5Lr0cb89lsNqhs6LVxHY249fNr2IOlLD960
Nyiz5OohXybdLyg4gDJ/CYM9VnWoGNR/3r5vEGnbbvCjR2tAu95eaz02BDuz
RYVd3zzBlJoes+Dse6xZnrMt21UNodk8qbWbPqC34V77Ja0q6CyfquAUjqG3
6P2Q1pFKPA/VbmveOgHz0NhHln7lULn+cTbnn0moOgm6hMaU4uPMQP8rrX8R
fuKtUOKfxcj8UM2TjPkMzXgfEZ7MA0gqZ00MDX2B+Fd3b6P3+YhyKT9zhzWN
GuNPn9+tzsU0lTf0v6AZlFxolZsyyILXjsay1Q1f8YZrmpfFz8RAYWPkiw1z
mNZuM1UMvIt5165bW/zm4V+amqlw+g7UD6xYOlO9gMKiBQkt3Ibh3Q3OxfJL
kHr7a0hy2+/wUT658Y3dMtQPXfswOZEA9piFRPcRAepAGtuK4RYHWeYko3FO
gBoyXrnz2MINiNTeKlJNEaSyRPUsDn+6Bjft6p5vDgtR69+VeLbKRiHvkOOd
mmkhSmfae8fVxxGY+qgoNZwgTBWqx8ebzIehnGMoHPejCKU56ziw1eoSgozC
0sqGRaju76LXPGEHYwPf+K+MMFFKSlrmGC8uEHt1Q+MUdohRMRYq43qzfrBb
1z4r+FKM0s992NAh6IspXvQgN3gFJf+5fDqd7Y0kEXsvMxaDShuKO5L6lydk
+8vvCjUyqOyba58deMmFaECw+Z5z31AMuVwH1h9nIZBjXzQoI07lqUysHE5y
hWdyUbQMLU7t4Qnq5Ec744l6BEPaXYKqztb22zB+GtLGnuwQyZUUru8R1qUd
0bet4+WFxyup+JRmw8GCU3iQCtaQ/Sqqk++i4jf2E34q0pFWXlpFjboOhLDG
bXAxLD24L1eSqk4L+2O1uBUKRpRvSZowqfCj3fr99yxwXFpyd8sckzqfPnU7
2IqDq6JCa/uIZR32OYO4cXZqcZLY+wf/7YsnONAZ5DcozjMpbds3f/gSK5YW
HHUnPupjKsy15GDQ/Iiz3AKTKvg3+769OQdeSVEJTotMyrpGP2vfMQ4Koi5e
8CXW0wy/NneUg+GLXnbRxMEGtO9DYisXu42VxM1mKqbaxHp72YXiS0zK7ZKX
CNuUA7G+Z03FxH7d4WlrTThAR212MzGzVT+x5zAHvo2lkb3EM1tmriUSf8i/
dVx0mUmpif8YKkvcFuDGtyIOmPH2lTDmYIXnybqzxO8fjfk8PcQBdYaTEUIc
22zjG05cYvq9Sz6xcZbSb8LEH3/QNKknvuLFDao34oClq6r5J/FVv+pLQcT2
6vIyH4m55YsResSJKhJTy8Q2G3SvzRty8B9Ni2+i
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.28629863693810603`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.561039548484375*^9, 3.561039577328125*^9}, 
   3.561129202328125*^9, 3.561129757125*^9, 3.56172822078125*^9, 
   3.56178977525*^9, 3.56198253765625*^9, 3.562046300890625*^9, 
   3.5620684555*^9, 3.56235154921875*^9, 3.56235463690625*^9, 
   3.562465836518631*^9, 3.56296165090625*^9, 3.56308663446875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", ".5"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MEProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"1", ",", "0.5", ",", "0"}], "]"}], "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{"1", ",", ".5", ",", "0"}], "]"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Moff", "[", 
      RowBox[{"r", ",", 
       RowBox[{"RMEG", "[", 
        RowBox[{"1", ",", "0.5", ",", "0"}], "]"}], ",", 
       RowBox[{"BMEG", "[", 
        RowBox[{"1", ",", ".5", ",", "0"}], "]"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "Black", ",", "Black", ",", "Red", ",", "Blue", ",", "Green", ",", 
      "Orange", ",", "Purple"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560681211765625*^9, 
   3.5606812125625*^9}, 3.560690346671875*^9, {3.560764065890625*^9, 
   3.5607640684375*^9}, {3.5609589006875*^9, 3.560958947734375*^9}, {
   3.56095904615625*^9, 3.560959105921875*^9}, {3.56095917496875*^9, 
   3.560959185140625*^9}, 3.56095953784375*^9, 3.56095987390625*^9, 
   3.560960095078125*^9, {3.56096014796875*^9, 3.560960163203125*^9}, {
   3.560960209578125*^9, 3.560960216140625*^9}, {3.560960249765625*^9, 
   3.5609603524375*^9}, {3.560960590375*^9, 3.560960623015625*^9}, {
   3.56096066046875*^9, 3.560960662359375*^9}, {3.56096074303125*^9, 
   3.56096074534375*^9}, {3.5609608468125*^9, 3.56096085328125*^9}, 
   3.5609610010625*^9, 3.560961433140625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "::", "\<\"exclul\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(0.27960607329175996`\\\\ \\(\\(Im[\\(\\(r\\^2\
\\/\\(\\(\\(-2\\)\\) + \\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\) - 0}\\) must be a list of \
equalities or real-valued functions.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.562465837378006*^9, 3.562961651546875*^9, 
  3.56308663515625*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk41fkXB3BL6Ua50chce7Y2SZL6aXl/B1F0M9wrKqNriYlJtrL0K/Sz
JJdJdCmEYibKei2VSSb3fpuUpbpIRBk/ZCm/Sorw+8wf5znP6znnec45z3NW
eh53OiIjJSWVRuKfbHdk+GnD2xM7xf4W09/20VhgpRbYx+Ki+KuH3QzxptzM
bCHLG6oKUxafiQc09GPCDAOQkfbt8TixfXNnZQ4rFD5nwmbfEOvzNQvntSNw
oDSg9RnxNzuvDA/DMxiZHfmhgXgkViLyEMSAhSluMbGL99S9i6xYBG/LY6QS
i6zUahuz4/FF+MktlNhEb0f5J+1EyHssdOISZ8vwigyuJ8Htw8CQCTGj/+y1
/YYp6FK8oSVPfPf1s+ZG7gUkco987mPTCPzR285NkIpY183HK4lfbUiwSmal
g/EgwppNnJ77fYPBoUto0FuTr0JsxyzeXp8tQPc2j9yXe2nUvHuy+b32ZaRo
TUUfJP7F3b0yweMKNmbmeqsQ67a8N9a5noUhA5+RJ/Y0UkqUVzsaXoW1/5ee
jcS7NAsK3vrmYmeUll2fHY0z9JVlf3LzEHdY9WAisZm5UfIBQT4cRPZez/fQ
yFNxiD/PKsAIu0oHu2mcas4Q7b9bgDS4Fj+1pbE/7rWM3qFCXN0leMEjXjIZ
FFWX/RvMLN/qnbChES5JDx/TLkJXV/rpE9Y0OPxXNbcbilBbWLhp3IqGsbXh
ZKxHMawi0i94EA8Ia4M0r9+E3jIORVnScEx76bfPsBQmluXR7aBhZK9XpPaw
FHqz8ydNiRmyvwwN+pYhsHJ8BX8njcN35iruc8tRXbTKefMOGiprLhi7CioQ
KlzZcdiCRgxDuCqRVYXNfh27VcxorLVNPVcZWIWPHUHCtZtoPIs7/rb7YRUq
6r+32G5K/kfW6KbxyWq0rVe5yjGhQc8WGEue1aC5Y8NzjhG596Ngszb/Dtqc
byZf0aNRvfGEYPffd6Bg3iwfrEvDPZAzFWRxFya6rmW7VtIoG2feEQ3fhU7K
y6A3WjSchs9t99v1B2ysIj+OsGhkvoq0qp6rR7Zs7Q0bJo0fNA4U9Drfx/TF
EOk3S8m/HtyykFFyH89VYn8NW0JDayzCq2R9Aw5ZhjhcXkzj+FFzA6meBvDi
JRFlsjSUvctuFG59gHc+UodWTYnheiC/bOJ/ItyaaHu9t1uM991c+WtqYqx4
ShX82iVGvDvjCMdKDGVH6a2tnWIIvY6r1aSLsXPHOYm1RAzFgB1xp7bQmDPN
mlvcLIb4bNdBudMPoTHzt+zsPTFMbynJaTCaYJ0gn56cI8YjYzGv2aQJFwv8
Tv2SJQavIrzuzIEmzFz6uH/3ZTGSa/oC3xQ3ITTg5/efyZzhhpLu39iPYaud
+tcGvhhX2/dUbEx7gt+Pp5grRYqhMB/jZqvVitsuNobZHDEyj7q4G9m0wtL/
duFqRzH0JUY8pYBWXI/U4FXuI3sXdXp13yN126VJ9/aIcadIUF1r3IY0NY2+
Sogxzhn7w76lDZJ6z3K1dWI438h4HLL0Gaqk9tcNz4tg4PhuuDFJgvWfsp3b
8kVQi7K18M2XgPVVcCzkqgjLSvKS5GslWOtiWbk8S4RpBsfYsV+C4YjeR/bp
IrQ11Ib0bm3HRFaT/5V4ESJNYua+/LcdH3Sc7IV+IrQwv/vOmOqEdkTntn4T
EcJa/oXMT13wLfdyKK1uhGqVUq+0dB9kotY7qt9+gJp+qyet2/vxQLvRQvH8
n3jgl6N+YGwAq8RxNvIODZg03MEsOTaEKy/OGvdT9ZD5enOZusEI7iZuOtN5
qw7m87waTukYqpNWODmz7+BJrFkLvfY95H6cdvRRqIX2hdGvRe8mwEhttOdV
VWF0qq+33eQDipXb2iMKK1EwUtekmPIRzsLRFn5qORQ1f38/MPAJufs0XDs8
S8A/Wu2Tp/8ZLm94u9s3FOMzdXPg56gp2Cm9WKIu/ztCTUVVKxq/wKkguHfe
uwB9paKkpyun8STxWqNQko8ZP0nWmsgZ6DpZLpKY5mLdD4vmfOq+wZNfXmkY
kwXbayt9K1TnsOpw3dtDUxkI0zys+8ZtHv/JXu28k3kJRmPOCp1sKYrrujnX
KekiljMnGKJpKWqwN+k3nuEFLLifVaaXLU2t3TL4odiLD3+zuq7F9jKUuard
ZWb5Odzc45lX/1mG0qlN8BxNiMPkqNqyQYEs1WB2XqVu8iyqObay6dYLqMLM
NQqaCdGI2h2XWzW4gAqJdLr0K+s0Vr6ye3E9biHV+OX7kWPCCFhsiU1nmcpR
nmXGzaxTJ+Gm1fpV+rkcpfyuZ4FWTwgmm5L7A2MWURkGBd45HkHIXOAe6qTP
oJS5kSPMuwFY3lt9TUbEoLiP0j5+ovyx8HQM919Biym95+VDJpO+kCpyL+tX
lqdyILLZb30EwVfKkpUfyFOuksYZ9VpP3Ft3jqEUoEBp9OpK1yTwoGQXbHRW
cQn1wia4cyjyJ/Ssb3se8ccSSlnnEa9O6SDKr0J/wH0pFVQffcRjlwt+KjNX
0pxbSvHH7cfkX3ARHZcf01OsSJny1E9uinNCybBmluJeJvVTSrOOQ9aPcFRS
3PpwmknlWNUblPPZOL9QRr3nHz/rXm5LLPo6OTtB7Mm6JNubxIZ5/6tGtRkm
tUz4ckiBWE1Y4hBAbOZa0eibyEY/l+2r8o1JuZ2I/0s7no3QTL7Aa5ZJjbnn
yaVGsVHCj44IJw64vWr1auLB6FC3ZOIVE3vs759hw/Wom24tcU2vu2D8NBs7
LIxK5eeYlNTMI9j9mw25nsfiCuLenbl9shFsoO3+DZqYsfepWlY4G+EiYVI3
cXVTjosp8citLMeF80wqXVqugxfGRstp/1euxCoZyoP3TrCxKPhwwzHi2GBV
Y2diyodz/SyxaWJN2FgoG5X7th29RWzFbmSqE49abtj7J7H8uIl7ZQgb+lv0
NnQQz93aWrqH2H2dqvLoP/3xL+dfB7ORoa0wOU+sFbyCE078f1J0TPk=
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV13c0198fB/CP/fHx8TFSyUhWkZkdeb+ukZG9yhZJRil7lBmSjIxkVtKw
SYnqayYqM0IyKnvvPX9+/9x7Huc8z+vee84993Uut91Nw6vkOByOeDD8f+av
UOMOUvkHHXR/yS3qOyD6xCrLfzH/4J+l5CkaqQ54P6TS3HZuCC6nmFrfXGyH
bo2QxRj1IUjJwJvaDbbDWlHVEW3DIShX8650bmoH2dtnbb9eG4KVER2XTy/b
oeKQ2FpNwhAQXgmVm1m0wwdVthOlE0Ngl5zANJ3UBv+9WvBIShqGwcN3Lh65
2QL9RNFUw6fDYNJzdGBXpwV23F2qGPOGYZ5PJI0g0gKKMIaPqR4GCdIjxsTp
Zqjq6csMnxqGC706DhbOzVCNb2z0RiPwGRdHfOXaBHXOmexmMyOwQJsszRD/
Dd5OurhYr43AzrvKMEXvb/DCUf7TFdwoeI3OrN6z+AbhDj3mriyj0Ons9fXW
yW+gYceUdvfcKETEe2/HVn6FNrNw1qLoUeir0bk2stAI/Ro3DlOIjEGHZFC/
mEsDtDQqXMXLjkFSsUd4vlEDVKkRyuiVxkDoUkEvnGuAp6qvjVlNxuBwdShH
KX0D2KF/iSIBY3B8sVfx45svMCFrwmzaMgZXOl17lPfqYfWkIkPhjXFYy/iz
ez/nM2BDyo1RvuOwkEGWIJrwGSIyNYIc744DLd2FxJnbn+EIi/E8b+o4pLPW
O73T+wwyZC5tafXjoPitWvXWRh349qXERbJPQLJFN0Owbh3sxK0w2H+bAJ18
NSMlYi2oam01Kv2cABOpmLmBjRqIpsYFc/2ZAHeljOSHozXAGUC38HtlAlzi
/uXIVtcA5szTbnBiEi4nDR6P8qiBIFX9h+AzCQrFBmMmNdVAvpnPyM4/BUOj
5K034iuBvUV5GcSmIIm5iRbvXglSWb1d9menoIsiJ+OzYSVc1aRJL9KZAkke
QfknLJXwNdWOX9l7CnIvygYOpP4HcfLH5J0ap4D3uPTy1bxPwHEn4kq50zTc
tP8k927oA0jrc6r1e0yD3r8zobKNH0CX750AWeA0BPtVb/fkf4Cg5n+zFxKm
QUhNneKW1wcY4lD0Hfw4DfJ16vhN2g+QW7kcTUWcATvGE97GchUgs3/5vVHR
DPxR66y4kvsetHVqQs9XzACntJhxc/x7uJLOpSdbNwPthu8Cdfzfw0PZwXG2
7hmINmdkT9V6D5M3LY4N7c7A7MfyfMP5Msj4a3Lnls4sqFn8uXRWoQzI6i4o
x8zMApni3k2hkbfAyphHClqbhT4XCUvvtrcgak3bdws3B2dbV7q7P74F861G
D2OWObhR7nP8V/xbeCdx/iX7uTlI6O6K6EVvwSEb8HkP5gDr006sf14KzWFS
rQ2n58EaVz36yusNyDM0kcdLzwN/9CfZeds3kJNqK2uB5iGtQaRVR/cN3C2K
fTZvMg9rhM0rOqcO8r8m3FlDDvJh5P5Gv0sgRyjzqHPPPPTqsg5dVS0B5cnQ
EmrlBVB5cjdyW68I/ERbv7uoLwDlNzbyGpEiKPE4NtquvQDb/A/48umK4Phe
8bH0SwvwtiO8bKWxEDaZB0LFbizA7vUwHX3lQig5J2timrIABqmh3JRYAXA9
nN7MnVsAi+f0tph+HlTZBuWWLh/U0yrfCZXKA2vJQ2afNhbAgSKoY4Q1DzK6
5SuayRchXMjozf6/XGDljPKeP7IIxxujRmO9coE5T2BZChYhiL25fyMrB6jq
r85Uxy3CMwZlohjDa3jxaDP9a9Ii+G2cefZv7RWoXovR+pG6CJXTS+2Fg68g
lFCWN5S9CNZn6TITil7Bnj6lE1XFIqhsVS1F6b2CjYHnoxf+LgJ7AnafK/kl
TK//GewSXwKaT7TP+aVfwPtrcXUXZJag8ee3XsbjLyC4B3tVrbAE1A0PXY/Q
vIAj5Zk3ctWW4HbMkMyt3mxQ9rbYuWO5BM7fBvfNg7IhbaX7GF/kEuAazzcv
tz0HjcUWY/c/S/CeRrDT5W4WHLINkBsfWQKGCade55tZMNguzGE5tQRG430V
wRZZ4FnyYPj86hLQytGnL0hmwdObmu7H6JYhq1Tu2ODoM1ibrY+rkVkGIotu
ba/OM3gx9ek7KXYZFJJ/eetZPAHXx3q8zonLkGb0mPz82Scgqzp8+0vKMhy/
evXj5aNP4HsmQeRO9jL8vXWKgvAzExb1zeImK5bBeSDwIpdeJmDla0b1w8vA
478ZKa6dAb13zwz4nV2BTAba3I7LafBc/It0F7YCKorvtDGVNLg+YBorrroC
otc/sTfxpwFONhjGdVdAfgVeq0+nwsmp1ixj+xWYkRm7/tUnFTz1rzuIxa1A
VqvA/tfkFCBxvp4fGVkBou1yW/t0MqCLdweGJ1dgXenzlZ7OZHCPs2kamluB
Q1O7hPVPydBNxvr678YKFISPng6JToYnY5HW/cRViH/a9atSNBlES5xbOqVW
D/qNe2SdzyPQURHNrwtbBRGd355a7EkQeIeQWnt/Fd5GEnNVqJOgpGwsoiZ2
FVw/OfYbLCYCi8BTu6qUVeAPLh4pbkw86HeMbB8LVsFq/dTuTa9EuN69GPnm
5yr4Bc7lzPxMgGinModnfGvwvZgYDNnxMIUKI+lOr0GdIR8nFhcP6qwv87zF
1iD47wkXo9vxQN6YNKctvwar/MultUbx4Mfn6b2ptwbS9cECeVTx4PBHIsLw
9hrcpHWqTLrxEJRMSl5SdqzBxGBzkU5aLDwRzmm82bMG9lafix77xMIOxbPJ
3/1roLacRk9rEgsVpXEib8bXgNUvWNqWMRZEGW+WWe2ugYK5hOlQZAxwNIl8
eS+wDmWHq/vJQqJhDeWPOAatQ9rvKOe46Cj478V0uk/YOiRcxcg9bkVBKF7Y
KOL+OlixfrDyNI4CUntBbXbiOjCyHx5q44iCkzZFTwZfH+Qz+d6PFd2HiwFv
TI3b1yF/i/+l769IKPtQ3gzcGyDazLVpie6BP+fGXd2TG/BN2etG1al7gELk
FKyENsCMmWv5LMM9aNb4kOsvvQENiL8+cDACRno+RpRpbsA9I/2gc4ERwLJW
iYTcNyDIj6LpVl04eErUvzvyeQPQxucdKqswcJA68Sz+6wYEyKpQ5J0PA1OZ
Ow+IrRuwbhPe5SgaBgryUnbkvRvgUR1iJ4MLA3LlFwxzcxvwqsroO/3LuxBn
EOb8hW0TfucUP09cDoW8W6onPN03YbBlalw8OwQy3J/Rzftswi9OftfV2BCI
8dxZcwrYBJAcEPzhHwK3fN+12ERugm+tQ0+LYQjIBvPd1nqyCfoPxwR6KUKg
Po6ym+f7JhQOCm6ccA6GP0X1D35wb0F/clzhg5hAaJ+lnJE4tQVOm3xOPC6B
UCN8XjtJeAt+tbqP/dEIhGd5X4iXZLegzKLVp5UyEOxeNcT0a28BofWSgldg
AIxlfo0b99mC2bHXzPW+d2A2ujlxt2ULDt17T6ce6Q+DTcQV684twDJMqa86
+0MrQce45tcWFJQx5L7Q9oeiyBaWu8NbcJRVXS+SyR9uhbU+wm9uwZ+JWYqB
DD9Yud3++BDfNuB8ztWkf/CFbeef6YL+2/DUAnl4EnzAWMYqXjRoG7SN6pYV
l7yhgGwsQjJsGzZJzGMnfnuDdcq6m2LsNlw2Ui6TyPOG2i9sGgbPt6Gg9Bjr
XS1vuHfCdsX3+zYk5/1lr0nwgkPds9pf2XZg+bMVxZaEJ1zP8lZu4dqBv/5v
96s5PaH++r5sB98O3On1uZCB9wRvCibeftEdmIrKuvF40AN6xaU255V3wCtQ
8PKjBx7w9IH/y6MuO+DOTbmcPukOQko0ew6fdoA2ajVWrswNSvLyT/2q2YEM
Ofo7xCw3kGLRN9Bs2IErT/uvrEe7wbnxlBdCP3ZAYJbwiemqG+jGnNZaGNuB
QLe9NyZH3MC9VyfFj3kXbsYyeVEG3IIPbkkS0U67QEp44p/1zvWg78tZ7rru
QvOjI0uv4l2hTnUg3NVzF6Jozir/dHWF70dP9uoH7YIr44nyl4Ku0F9ZHnT4
0S4kRYjQcmXdAByhr/lJzS4UmNx9rvr4Oqg/57725ugeYJGnr4s/dQapFNLJ
Bo49MBYPqBkMdYYTsdsjv7n3oOJjrlS+gzNs+XXZUQrvgenDsJ1MUWcoNLhv
fQntgeeaefx4tRMcIls02XXcg6UxZe/5cUf4Y1OjqvlxDz5ItrHsaV+DZpNC
CuvqPUg0YWuTkroGFVppde71e0B26sx4OPs1SJD1RBmte5AKxTXeUw5wnkHg
3PzQHowsT5Ee3neA/Ko4yUd0+1CzFyJwv/kq+HDa8Pyz3AdvSa/CPnt7sNMX
v9hvuw9B0/Y/kvXsQfcuWVSPwz7kebbwOsrbw8nJ7MWWW/uQVZCyrs1oDz/f
TdR8DNsHNy71Xo7KKyCu7W6TVLAPHJYG9bVsV2DCPzxDfWcfch0KFiNGbWHq
opBjFg6HrLPjf/V32MLlhUPkXBQ4NCwbL6NWYwtavKPSbHgcYl2voTZKtwWe
+/cyGZlxSOBOXr2hoS20Gzdf3+XHIdFrIra9ny+D8IwJXY8ODt3PM5TedLSB
CmPt6ih9HIolaWJu521ApVLZAzPCoSDSU18mHhswjxXre2mKQ1x/q5u+9VnD
fXHafM8rOGQhY7fPYmANY57/XWD2wyFeHcXBOWUreLbLE6XzAocUtymfhClb
gLDDMYzsNQ5xl5GHFPFaQHkrw9K7XBx6k9h9fpvSAlqf7phxFOPQ4KNLPTuN
5rCr1C04/QGH6AR7OtP1zME84v63yDYcWpU0STx11QwOMSzg67dwSHZtdM4t
5xJ0VEbd09zFoaQiyzSfuEuQcJ2fum0fh9iwkRePvS8B83dzit+UZKjXZ+Ta
yfMHDv+yO08iQ7Rtalm3hy8C43baEjsvGfrtrsU5y3cRiOPn+z20yBDnf6WD
kh+ND+79X/NNHTJk5oNlG7wwhmjV272B+mRI5VR8aESsMdA9L+m+b0KGjDmZ
xaWvGAPBiv3HUxsyJPhfS1Y2vTHgOxe+NHmQof6ZJPoSByOgrE4v5s0gQyn1
nCGjAobw+5yqxp8nZOjW7WvfjrMYQvHHmb9pWWTIxqWy++a+AZi/V2Rmfk2G
VCdGO027DeBN4R9PXCkZWgi45KASbgDWGbzyA41kyF/IpvbKuD5U+OXXJy+T
oW/MIwLnfPUgdt3IynCNDJ2NOyqkYKwHV7x2Vuk3yRDPmIb1FXE9ILnpnArf
I0PwwSxddFIXrjrO3/egJUdmU/9M8i11gfmSpJ4+FzmSHUp/fVhLB1ykPvXS
apEj+ZeBfD6qWlDT3lVQoUOOLoyN2Xfza8HhGwtB1/TJkdymJdGURguqX/Kf
/GJCjk6eIa7Vfr8Ah44+dA++TI60pI9TCRtdgE+b9nTrXuTIS5+TV85ZE+iq
SYojz8gR22M5xzMl6nDZQpAxMZsc/cpK+f3okTqUrasMK70iR5Gpu2Kst9XB
Rtzv/tN8crQP73a91NThbdZwl/l7chR+iSM0YVANLMIqXH80kSPEGJcgwaIG
+Zp2z6rWyFG8h5zRmSRVkBLmxmCTHPXlXxDOClSFKtLfvuptcvRdLyLzlJMq
tHdaHa3FUaCjvn8mfTBVWLEyi/1MoEB9XBqpvFMqgLnr3/l6nAL9CL7OkXhe
BdrTMNMONQr0sJD8rzRRGcwCdlcNNSmQsqdgqfamEgzZ/JfYqUWBUoNpTHzG
lGCFT77tpz4FyhxY/EBTqwTHiqXVeswp0F9h3xpmHyWw+yws1e9KgYyG5alr
xhCsTrMxjiVTIGa/iK6+1wBJmeONGakHeT69gZG7B21d712QUQYFWi4yrj1y
GcCtVGe+JosC6Zam2a+wAsz6BremF1CgXCkRpoRoDEapxqIN6iiQ9MRxL7Hb
itDF9Ya2cpYCOWiSDGs8FcDzR0CtxwIFSpz52hJrogCH7l7wO718sJ4x/mOw
jAIYjA1PPN6gQPnK0iqtG/LQUnDkqzsFJRqI4viPLkgevpy9EyFwjBKdseXY
mo0/C2VG6hRJqpTo8ilJYbV2WYjUqgjnUKdEjbKXv1OUy4KliiD+pSYlGpoP
lezPlAVySTr697qUqBrHttrvIgu6zG1HfplSIlNHKW52WlmYaL94muMGJdI7
H9DnpiEDbLoOBi8eUaLHHjfLm3ulYPZ8T6dwCiWKiJHoK/osBTWKGhfL0ijR
9myMZ06hFDiInLZoeEqJdjmevvgXIgVviXP2E7mUCH91TN1JSAq0m7x8haso
UezSnlVFqCQEaYQ/fTdGiewaHBjeKElAh7WjpfgkJfplx8ZQJioBfF5axwqm
KdHXn1HNzewS8D2LKTF7gRKNN6aJyq6dAZbtzIiELUqkaztpspp/BnIK39+4
RaJC3e0luVTsZ6CdeUJBWIYKnQ9rsZijFgcewaaN13JUiGK1uPLejBh4QVEZ
rwIV6jr4n5g0iQHbdU8xdkSFmLpKZEzvi4H9Fxwv4QIVUo2sjlunFoMNn2OE
CauDvPSbh4F4UeAeuPArO5wKNT6rWa7iFYaoOoVik8iD9cIH1/YphGHptXAE
zQMq5CoQ9d1+RAjq3ElSLg+pENWPY8qpL4XAHt8RJ5FOhbJPLjHlCgpBjqSZ
em0JFRr3PdKgJHcaRKOuvR/so0JRH75sabsKQPJN05iHgwf1poKPVxoKwL6x
pr3yPyokrWlnri0rAO1cQsyvxqjQXuuN2EacALiVzd24sUiFfAR52EUenYJ3
f734d6ipUS+mNZT8+STIy4YlHZOgRunEL3W70vzQbXdMJlOKGt1/ZWeWy8UP
HrFFPSdkqZHHzILbdVp+KBj9xSZwjhpZ0O18kRvgg+NJIlkyatSo3FdJazyc
D8gXuwuNzKnRiU3pvIg+XmjKE2yMCaVG1/y/d51+zAOO3VWOTOHUaFbjS1bK
XR6gJDcmPLpHjUb4FfDst3gAMwvUyYimRhGHZ3SsNHmghKazMy+ZGq3F5dh1
7XBDkv2dv4151Oh3pLVIyDVusDzetknWSY1wc9TZslongHTMvexTFzWq36Zm
fyZ3AmoPHXbz+kWNxB16v3GePAEnaS0mJgaokeAXRRdTshMwvzzW3TZBjfTs
ac49dOOC0G97bzP3qJFh2aDG5sXjkOMp6nr2NA2qDEWa0sAB5jd/CC4L06B8
6Q6RreMcQO/sOVogRoOeRWG9w3vs4G7z0fKENA0iEHb6+arZQeGCmhYNokEJ
9t+JZkrs0MplLdBlQoOoZSZ0HLTZYPV7zNCtEBokM71Uvn+bFfrpuhx37tIg
W3KlSxO2rFCnzTF/L4IG+Wfp18+os8LD1rztJw9okJezfrwGCyuc7mhkaXlE
g+Zi12o0io6CdS+ZumAeDcIkW0UMx49Aw7hX/r8OGpT4tFjgy/XDUCBQeeZG
Fw2aZD3uvGByGBKdKCs2emhQ5oeRfUk4DJenE+oZBmhQZPK/Ggrmw7A1Vzyg
OE6DHgbe+lZXwQJia5MMads0qFOz6GcOgQVSKK09DfnwqI+VB5yqmWHvylHp
Hyfx6L+E8ZGOfGaw/9y+qieIRwPRKWQGKcwgHqrioyOKR1OndS5EuTHD130B
fw05PHpOaG+c42OG9a3lIEwbj6601p65EccEFxfvPzjtiUdrS8+Olbozwn/6
Ktq53nh0pI/nZ6gtI/CU7BAF/PDIN2c+9Ko+I8y53ozlD8Sjwn1P98uijBA+
Yxx/IhKPHlKHcpt0M8C7ca7HRzLwyGNUP3q/jQSHBsuek9fj0bULd1Ov9BMh
lhgQUN6AR2rqCSvFn4hAUFA1vf4Njwi9tlbc6UQgT+mg727Fo56mkBJ3cyIs
Gcz75vYenD/3d/v333TQ/kVAT38ej46S9UiKDBEgujB9O5ONFsm4PMp+SaAF
fL9dtyEnLSqtYu47P4eHMMLpNzQnaNHDWsqz1B14uH2twsGNnxbFUHzoHkvF
gzN31w9VcVrESBX0mlcIDxqPSDnT52nRJc9LSdeNaIAqIMT4rBstorj42kbr
IxW8W5zZrPagRfi5SF39bCqwdzB9quZNi5YItQ9uRFNBvZ7YlNFtWpRtcDtq
wZoKwngGglzDaVHqyGLbYSoqoPwql5+dSovCSuzvN5pQAvmhBTJSHS1KpO0P
4cRTQOk9i9dJ9Qf795x22VkmB7udBm32Rlp0XEvx2cIfcqgbzXws0EyLrtQV
xrBWkENohZaISjctWmxhpbN3Igcy69emvlO0yLMw41J3Gxngcq2Lh5gJaC/M
njsxHwcNMz2uTw8TkFWTWI5vCg6ixQ1ELVkJ6Ez8+UOe4Tg4WqFS2MVJQAWC
LBIFNjgQbRTI/ypAQN8len8fP4wDy9GlV0UYAaWojq0s0OxjH7jvPfF3JqBx
Lqdzxf92sMCrOGvZGwRUb7xhmVyzg6nm+nGu3CQgBjYOl+ynO1i7+PWMG14E
JLrs81zUegebAIO0y8EEJL5W/pVyYBs7Ys2erJZ8kC/xmo36t4W5pxXHMNcR
0AdJnOBfyk2sfCftXl09ATmyD4x9mNjAdqwjQtwbCciIL1v/bfMGdo/Xyquj
mYDWRe6nUj7awDIKCFYJPQTEFtXKx3lqA/tSdVWYeZaAXP7O19EYrGOsw+xN
TKx0CKNmp/71cRWzOk/zpZaNDsnG8J+6+nwVe/56qcqNkw7Rmgt/p49axYSv
fyv9wUOHCMrhbG/MVjGlVe+0eBE6xCN6Kerc1grmTNPhxKRCh+RPYmraaAWr
FIrEM7nSoYu+rfuhf5YwmZ9HWxJu0SF6t1Ljt01LWMmd1/EsHnRI4ZGZ10b5
Eva8pYGN1ZcObVe+r6t5uIRF3qQS4QqlQ5/YGMXVVZYww7ehBiLJdGjgsEop
a8EiNi4fkKZZRYcqCwsrFaMXsMvDRJumGjok4nF/btB/Afv9IINX5zMdapVU
tEhwWsCa+z8V6H+lQ7c03qSLqS9gpYFbVZc66NDp4uaXShQL2J06n+GrY3TI
7Zomw7XdOYzpgrtwKImIHANfez+lnMWe1TLQyTMRUcYJrDh1eAYTP1s4uXiI
iJyJinc+1M1gugITr2yPEVGWVpKAU8gMFkVtza3ER0ROd/gFw3AzGOVnzSM4
eSJiXvExD6OaxtYUuHGBV4koQKwvKlFwEgt/WzUo7UhE9qIrVIvESYxFyLJy
1pmIbkuIH725MIFJsj32t7pFRFWksWvN5RPYrQ3i6rnbRBSsoFVFozGBTb7b
mNx+SESZ31df2bqOY/0i7Z1+/xER55bKdOGPUezpNFMARTURufD5ZAV+HMXs
co1OxtQSD95Dt61r2aPYJF+P77MGInprwSsc5jWKrbEPcja2E1F1uW7FH7ZR
jIkwc41l9KDeBUkOeucRTG2MZqeInh6xp1o3Jx4bxmhfaL6UY6RHQnccRDWo
hrFm2we6dcz0yFIW42ZeHMKMBkhZXUfpkfzxZquxr0PY5Z+H1Xa46ZHfevn7
GL8h7HYd70NNGXrUeZfarH7wH1byBPhGrOnR8vHXb85W/MWW/ZdpbG3pkU2p
YnPrq7+YzKXX0wNX6NGHj7/pvB/9xT4xMLztcaRHgoLPirbc/2INwYNKTe4H
Lpzy+i36F+uzC7ApjaBHn2UE2hqN/mDUpz6lBRfRIzmlHhFlswFMk+Jm4G4J
PTIp6rhQLD+ARf/hsfN/S4+07jgpneMYwJhSogQ9K+jR5FynTNmffoyD1rzi
Wh09mv9NyuNy7Mckpje6dLvpUUWkuNXHwD7MqliGiXOPHlVmGLMJ1fVi7803
SO04Erqz1Hmd4WUvRqL+SLxLQUK6OOoXLJG9WI2lIn4ST0JyZrtCIbq9GA9B
df/dIRIq8/svfbD/FzZmbzCrLUhC9YwjOg/2ezBXtuvf7hiTkMmpuI73Ft1Y
wxeRRrFLJERTcrTJXbkb43Kbrx8yI6GogTp9LcFurL3RvUbDhoQceB6HGqx3
YRJefuUsziTEtFpLVpzUha23RbwsCCKhG7Gj8wk/f2LB4Vkh/XkklNi0Uino
2InR+9BcsC0koUtDx0RLjTqxNMcbzGPFB/u3wkvpQyf2Vuts9vw7EtKevvCq
+UgnNsb0o568moR+YsMF9Q0dmNYTHF6wk4S6JN91Zp7uwI6U28R6bZPQzVNH
v1uR/cCyc75c3NolIW+3qXTX+XZMPE2IKwjHgL4TPl5KGGjHNAPWiyOpGJCf
Yqoi88d27I5K3I90BgYUYLaVsujRjg21VbHU8TKguZPOJIXuNqxwgjOdpM2A
divMLmq3tGD6ufEB33QZECXhRM65/BZsyYnqcpgBA1pYbx43ut+CyU3P8G1d
ZEAZj1mC1s63YHWzn4pGbRmQjzPFOZraZqx7yazuPx8GtD56FX+mqgnb33k0
6ZzNgH5KaeYEd37DDJhIco1bDKh2cKv8jm0DFkVFzt5/4ObDtY8rLjdg9Zur
uwsH/repGLhi04DJDA18ZttmQIcGzW2uWzdgbG8L9VwPDK/Z3C0tGrAhY51r
h3cY0NGWwF5FkwbMMyU6+couA6IzxIqoNBuwwuhgP98Dd5k42itrNGBjwZ6W
MQemKFHiDlJvwEydLHnKD0wdQFa8cb4BU5QXLiLsMSBl5mK2GeUGjLq/6cub
A39fjJX4ea4Bg/bqnIYDD04mGDEd2Lf+7YO+A+/FKd/WVWjApgrSDaj2GZDh
Tvbg17MNWGuAy4Dpgf0WHVcrZRowGnebmhsHVl79rLUt3YAhB6Ps0AMndn7N
kTtwqa6CU8GBzWTavN9KNmDTymLatQdmVWsfX5BowPhkecW6D/xLzd9G9MDW
QkeZpw+ssNc84HKmAXvMRbe6f2CCxFe7XPEG7H9UeRMD
     "]]}, {}, {}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV0Hk81PkDBnApGkczsV1GWAy2ktoOHb/0fNO2itpiZNn8lChLK0dulkau
Qsemcd9Hjlw5KqL5jqFSjjR0IKVJiNSWJOH3+f3xvJ7X+8/n0TzqZnFMWkpK
6jLJ/9v02OAjwZD3drXiy5zJn4SYt5Pt3qdiiVL/GYWvxOvTE1IqVBzxa7CF
8DOxZDmH56t7EnbbL5mMEZu1PLmequIFIeqS3xJzYtRyZzX8cUb+eX0v8XdT
h3h73WDIrBgpe0Q8HCYW2fN5kOhNejQQ/+44UfePShhY/PnSFcSinewbDSkR
iJunYZ9BvFbbqOyzxlk0ye6+EE2cIn2kQCc7GirrYmK8iBn9oVlWuuehp/7F
+hBxzcuOlgbLi8hyvPQZxO4HHE1t+ZdgkulyWIu4d03kzliVOLzyZma/1BMi
Ln2ZQOfQFejsnwi8TWzKKtxWn8KHTOYfHD5x9fuHG8c0EqG+6+lrY+K/7Oyu
R9on4cXAsqnFxFqtYwY/ZidDK+PH/gFdIc4XK/9krpuGbXK9GqHEu9Rycoac
0pG9SOCzlzi4KWkhbZmBP983pS4i3mCoH2vDz0Tho6u2aTpCZCzeH3FOJQec
UVFGPEeIwJZ4kVVNDoa+tgQeILYKfymtfSgX1p4SvfnEiuMeIbUpeYiIoj+5
agvhJ47zG9EogNH2VXaaWkJwY3qrbwoKoF8W2XhPUwiDX3THw+wLscFYddaV
WFJxw0Mtuwhr4y8Mlf8ohPnl5y6/6ZagLigwQ0NDCH0z7QL23RJUn7BOq1In
f8/96+2AUylMpjrd9hAfvjVTfseyDNPJAedd1IRYvOKigTW/HMY1SwT/qArB
Y1TonVWpRMpS6AQuFWKlyaWo6+6V2JEnE9W/RIiOcLeh7ruVSIxStTch5szV
LzLwqUJAZZiv3GIhmqZzDMQd1XBdI9rupkz2fuJv1Ii5hSgftUhaUYiqn735
u1/fwvONH/2kiO3cuRMeW2vQ92R0YJuCEKWjrFuiwRrYSGS3lMgJYTEYtc1l
122kciJoT1khEnoDdlbN1GO8IKjpzCyNHcttcl4cvIPRsk8lSTM0hv/YJMMo
voPeXgG7dJqG+oi/Q/FqAX6ptgpun6Lh5myoI9UjwEfNqDPjEzSUHUvzczcL
0bjt67d7YzSsbTJLP3wUwSTvbFRiL42xbkv5LHYjhh+aZ/n00IiwYxzj7mxE
g2VPhnk3jQoHN3Z1XCPuOVn9NucZDeZJo/DATU3IC3rtbyKm0Rj67A/Zv+/i
35zo827NNNZdU5JdzmhGy9sP1euqaNw3aDzSsrYZicFVp1sqaBwp96sNtmnG
I96bHcev04it7nN/VdgMG/VlxZdKaQwKirvz9j3Ax56hze0FNNI695T/fPkh
+IvYNSOpNBRmebYm6m3YpXVgdX4YjQTn3+30f22DV6e2v8IZGhyx/hGlk20o
iet68xePxvaCJw7ddW3Qi8/jrAymcauAX3XDoB03o6rNzvvSGOWO3DZrbQe1
g/1y2pnGwfz4B6cWdKCvP9k0ZB8NHfP3gw3RYox2uCcZsmiwQ0y2OmWKsV6c
c2hKkcbC4oxo+Rti7FFhcurlaXxjcA3M+8Xw+2Gg1UiWRrvgxqkXmztRq55W
pDMtQMBa3szXN524mbY5MGFYgFbWokUG1BPc9wt2VhYJ4Nu6BQmfn2Gjq79L
oocASyuVXsyZ04cFHF6cdcwdVPfvfNi2rR9BgXcl9GgdhC6pqjYjEuRvknTW
bbyNcV0jVrHrW5h1uTusj6yB9GTRQlWdYSw/0Nmjk38ThrNHqrklI5AEHQq7
+aYaD8M2tDatHMPIK4cts2uqoHHx3WTB+w+Y9l3YKDlcgXcTfS861/6LoOML
TBj15cgZrm1mnv8En4pj+YrMMjDVro5JJJ9xSor19fH3a4hxrjqewfmCz52z
nCHjQnyhiiR/hkxAt8t8LjPsKrzWiSqXNHyFVvfaOaF6uegrEUU/0vyGo/Vm
76fbsjDlIk5eETAFJ7nn0lO3MrBqx/yZ47XfYZz12OfpSCpMsjSdypfOwK2j
43COfxJ81Q5rvbKdBeNC+oPtV+KhP3JQ4ck+KarcbMA3lHEFP7A+METfpChh
eJduzoV/MO9Ocql2yhxqpFAq/SLvIk5sqH0mZyZNHRwUKGowY1G052hG/Rdp
quWZQ/TV9LMYf8deOMCfS9moSpy33o9AFddkbtwv8yjW3gl95sIwhOwOT68c
mEetDnLTWP+IB81e06fZ4TKUGvOg57KaEGzdFBansk6WepuY6979LRC26m2T
cx7LUis/LRifkPhhvDm23503n5Jm87wff/RGwjw7LwsOg1q2psgrLewUfnhR
lSUtYlDiFveXcs4ekPmbZ7nFQ45ykzdcUnXvJKQK7Er7leWpgXihuMf7BDyT
SmOVhfLUvvEmqbjdf6JuVRRD6aQCNSjmGNPnjkHJ1FM/lKlIRbDsRvpMHNCz
uv2x/21FSq51RUzXcnuUpYEjsVtAyXbXtoTk2uG/pYZKajMLqBK21XBSxCGc
Ds/k9RQyqQsp5+73h1ujeFAtmbmXRfn4B4ruyVnBXIm5+e43FrV/aJJpkMfF
ORlp1R7i7H8rHIdyuRBNjk9/ILYw8qzNITbs721gT7GoMxFTJ1SJ2RXF+08S
n/KmnjFyuOi33Oe0+DuLCvv5ouR1JhdeCTF8h2kWtSt8ZX1SKhfFMaf9/Yjb
Wh03WBEPnPayjSUe78oqUiK2drbVukFcprwyNSqFC6Ot+iXyMywqqdExxieZ
C9meB43lxJqRkckWiVyg/U5+E7FV+5Qmk9hPVBHdTdzDP1VwP4GL4WvJ5jKz
LCow2rWWIm79+0SvNXFnxrl3BvFczPc8LHAl3n6UHTDM54I6zs0OJbY8XSyX
R3z9t/84XyPeIuxdpUb8znjNXpr4VW9A/dMrXHA2aa/pIh7cpWoRR2y3aqny
O+KNX+oH9hPHayiMzxLTw8eCFIj/B8rAZig=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{464., Automatic},
  PlotRange->{{0, 4}, {0., 0.2932345893934186}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560960678109375*^9, 3.560960753140625*^9, 
  3.56096100865625*^9, 3.561129204109375*^9, 3.561129758046875*^9, 
  3.561728221390625*^9, 3.561789777734375*^9, 3.56198253840625*^9, 
  3.562046301890625*^9, 3.56206845628125*^9, 3.5623515500625*^9, 
  3.5623546394375*^9, 3.562465837456131*^9, 3.562961651625*^9, 
  3.56308663525*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"GProf", "[", 
      RowBox[{"r", ",", ".5"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MGProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "+", 
         RowBox[{"0.5", " ", 
          RowBox[{"0.8325546111576978`", "^", "2"}]}]}], "]"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", 
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1.4458473030317134", "^", "2"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"0.8325546111576978`", " ", "0.5"}], ")"}], "^", "2"}]}],
           ")"}], "]"}], "/", "1.4458473030317134`"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"1", ",", "0", ",", "0.5"}], "]"}], "]"}], ",", "3.5"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "Black", ",", "Black", ",", "Red", ",", "Blue", ",", "Green", ",", 
      "Orange", ",", "Purple"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560681211765625*^9, 
   3.5606812125625*^9}, 3.560690346671875*^9, {3.560764065890625*^9, 
   3.5607640684375*^9}, {3.5609589006875*^9, 3.560958947734375*^9}, {
   3.56095904615625*^9, 3.560959105921875*^9}, {3.56095917496875*^9, 
   3.560959185140625*^9}, 3.56095953784375*^9, 3.56095987390625*^9, 
   3.560960095078125*^9, {3.56096014796875*^9, 3.560960163203125*^9}, {
   3.560960209578125*^9, 3.560960216140625*^9}, {3.560960249765625*^9, 
   3.5609603524375*^9}, {3.560960590375*^9, 3.560960623015625*^9}, {
   3.56096066046875*^9, 3.560960662359375*^9}, {3.56096074303125*^9, 
   3.56096074534375*^9}, {3.5609608468125*^9, 3.56096085328125*^9}, {
   3.560960915359375*^9, 3.560960919015625*^9}, {3.560961126109375*^9, 
   3.56096113090625*^9}, 3.56096139509375*^9, {3.56096143315625*^9, 
   3.56096143315625*^9}, {3.560961493296875*^9, 3.560961504140625*^9}, {
   3.560962547703125*^9, 3.560962559421875*^9}, {3.56103962609375*^9, 
   3.5610396551875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk41fkXB3BL6Ua50chce7Y2SZL6aXl/B1F0M9wrKqNriYlJtrL0K/Sz
JJdJdCmEYibKei2VSSb3fpuUpbpIRBk/ZCm/Sorw+8wf5znP6znnec45z3NW
eh53OiIjJSWVRuKfbHdk+GnD2xM7xf4W09/20VhgpRbYx+Ki+KuH3QzxptzM
bCHLG6oKUxafiQc09GPCDAOQkfbt8TixfXNnZQ4rFD5nwmbfEOvzNQvntSNw
oDSg9RnxNzuvDA/DMxiZHfmhgXgkViLyEMSAhSluMbGL99S9i6xYBG/LY6QS
i6zUahuz4/FF+MktlNhEb0f5J+1EyHssdOISZ8vwigyuJ8Htw8CQCTGj/+y1
/YYp6FK8oSVPfPf1s+ZG7gUkco987mPTCPzR285NkIpY183HK4lfbUiwSmal
g/EgwppNnJ77fYPBoUto0FuTr0JsxyzeXp8tQPc2j9yXe2nUvHuy+b32ZaRo
TUUfJP7F3b0yweMKNmbmeqsQ67a8N9a5noUhA5+RJ/Y0UkqUVzsaXoW1/5ee
jcS7NAsK3vrmYmeUll2fHY0z9JVlf3LzEHdY9WAisZm5UfIBQT4cRPZez/fQ
yFNxiD/PKsAIu0oHu2mcas4Q7b9bgDS4Fj+1pbE/7rWM3qFCXN0leMEjXjIZ
FFWX/RvMLN/qnbChES5JDx/TLkJXV/rpE9Y0OPxXNbcbilBbWLhp3IqGsbXh
ZKxHMawi0i94EA8Ia4M0r9+E3jIORVnScEx76bfPsBQmluXR7aBhZK9XpPaw
FHqz8ydNiRmyvwwN+pYhsHJ8BX8njcN35iruc8tRXbTKefMOGiprLhi7CioQ
KlzZcdiCRgxDuCqRVYXNfh27VcxorLVNPVcZWIWPHUHCtZtoPIs7/rb7YRUq
6r+32G5K/kfW6KbxyWq0rVe5yjGhQc8WGEue1aC5Y8NzjhG596Ngszb/Dtqc
byZf0aNRvfGEYPffd6Bg3iwfrEvDPZAzFWRxFya6rmW7VtIoG2feEQ3fhU7K
y6A3WjSchs9t99v1B2ysIj+OsGhkvoq0qp6rR7Zs7Q0bJo0fNA4U9Drfx/TF
EOk3S8m/HtyykFFyH89VYn8NW0JDayzCq2R9Aw5ZhjhcXkzj+FFzA6meBvDi
JRFlsjSUvctuFG59gHc+UodWTYnheiC/bOJ/ItyaaHu9t1uM991c+WtqYqx4
ShX82iVGvDvjCMdKDGVH6a2tnWIIvY6r1aSLsXPHOYm1RAzFgB1xp7bQmDPN
mlvcLIb4bNdBudMPoTHzt+zsPTFMbynJaTCaYJ0gn56cI8YjYzGv2aQJFwv8
Tv2SJQavIrzuzIEmzFz6uH/3ZTGSa/oC3xQ3ITTg5/efyZzhhpLu39iPYaud
+tcGvhhX2/dUbEx7gt+Pp5grRYqhMB/jZqvVitsuNobZHDEyj7q4G9m0wtL/
duFqRzH0JUY8pYBWXI/U4FXuI3sXdXp13yN126VJ9/aIcadIUF1r3IY0NY2+
Sogxzhn7w76lDZJ6z3K1dWI438h4HLL0Gaqk9tcNz4tg4PhuuDFJgvWfsp3b
8kVQi7K18M2XgPVVcCzkqgjLSvKS5GslWOtiWbk8S4RpBsfYsV+C4YjeR/bp
IrQ11Ib0bm3HRFaT/5V4ESJNYua+/LcdH3Sc7IV+IrQwv/vOmOqEdkTntn4T
EcJa/oXMT13wLfdyKK1uhGqVUq+0dB9kotY7qt9+gJp+qyet2/vxQLvRQvH8
n3jgl6N+YGwAq8RxNvIODZg03MEsOTaEKy/OGvdT9ZD5enOZusEI7iZuOtN5
qw7m87waTukYqpNWODmz7+BJrFkLvfY95H6cdvRRqIX2hdGvRe8mwEhttOdV
VWF0qq+33eQDipXb2iMKK1EwUtekmPIRzsLRFn5qORQ1f38/MPAJufs0XDs8
S8A/Wu2Tp/8ZLm94u9s3FOMzdXPg56gp2Cm9WKIu/ztCTUVVKxq/wKkguHfe
uwB9paKkpyun8STxWqNQko8ZP0nWmsgZ6DpZLpKY5mLdD4vmfOq+wZNfXmkY
kwXbayt9K1TnsOpw3dtDUxkI0zys+8ZtHv/JXu28k3kJRmPOCp1sKYrrujnX
KekiljMnGKJpKWqwN+k3nuEFLLifVaaXLU2t3TL4odiLD3+zuq7F9jKUuard
ZWb5Odzc45lX/1mG0qlN8BxNiMPkqNqyQYEs1WB2XqVu8iyqObay6dYLqMLM
NQqaCdGI2h2XWzW4gAqJdLr0K+s0Vr6ye3E9biHV+OX7kWPCCFhsiU1nmcpR
nmXGzaxTJ+Gm1fpV+rkcpfyuZ4FWTwgmm5L7A2MWURkGBd45HkHIXOAe6qTP
oJS5kSPMuwFY3lt9TUbEoLiP0j5+ovyx8HQM919Biym95+VDJpO+kCpyL+tX
lqdyILLZb30EwVfKkpUfyFOuksYZ9VpP3Ft3jqEUoEBp9OpK1yTwoGQXbHRW
cQn1wia4cyjyJ/Ssb3se8ccSSlnnEa9O6SDKr0J/wH0pFVQffcRjlwt+KjNX
0pxbSvHH7cfkX3ARHZcf01OsSJny1E9uinNCybBmluJeJvVTSrOOQ9aPcFRS
3PpwmknlWNUblPPZOL9QRr3nHz/rXm5LLPo6OTtB7Mm6JNubxIZ5/6tGtRkm
tUz4ckiBWE1Y4hBAbOZa0eibyEY/l+2r8o1JuZ2I/0s7no3QTL7Aa5ZJjbnn
yaVGsVHCj44IJw64vWr1auLB6FC3ZOIVE3vs759hw/Wom24tcU2vu2D8NBs7
LIxK5eeYlNTMI9j9mw25nsfiCuLenbl9shFsoO3+DZqYsfepWlY4G+EiYVI3
cXVTjosp8citLMeF80wqXVqugxfGRstp/1euxCoZyoP3TrCxKPhwwzHi2GBV
Y2diyodz/SyxaWJN2FgoG5X7th29RWzFbmSqE49abtj7J7H8uIl7ZQgb+lv0
NnQQz93aWrqH2H2dqvLoP/3xL+dfB7ORoa0wOU+sFbyCE078f1J0TPk=
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwVl3c4l98bxz/bqK+drCijiIyQ4vM890mUnaSUldBQkVCRiuyMolQqspKR
RDaZ2bJFZIUQsvf8+f3zPNfrOvc57/vc9/s61zl7LG8aXCIRCITOrc///7o8
Qn8f5g4Ax0bOUGRLE2AwxBhUNACr7uFv5kuboLD9V4T36ACkx/qXKus1QRFj
ZeUdNAiPPn3aOXKtEUqvRfCfHx+E9Wdn3Y1d6iD97/Xr5guDcGZ9G5OMZh28
v6qcb0X4A/yge1eFtw68L7cb23H9AUmliZLV3O+gYcn+xpP+B8Z8H+zj2aiF
hvPePCmBf6DySWji5+Aa6NKw3UE+MATj3m0VJT2VUFepcolRaQhaE+rCrmdW
QuFx5sz/jg6BY8l2X63ASohUizfkOTMEulnfNeKVK8ES/X5+4MEQsIRWHet4
XQEjSmc4ztUNQcj3QoxqWQ7zezHWT7bD0N53MDmK5xvg/aqV/s7DcNXuW2np
TCn4RGi4XfUchj3uLGGCdaXAzWU4KfJ6GCa8r1Z5eJTCIeL1hjdlw8A3Haqw
NFkCzr/Cnvrxj8Cph7ksdj+KYe3pHKt19QjccDjZcvFZAahpr1QebR2BW0/0
pU0NCyCQRnAX6h0B4R1DVQXcBbDrwbapzrkRcCF93ZUZ/hXwa8KNp3b/heVL
2T1XP+WDm5p+MNz9Cw5aElV+v3OBtPyRjV9sFNi9YvRLQrKAv051FmRGQSn2
Cp+YVRYoRHf8sD4yCoFM53XaFbLgkibD2xTdUfiiHecn1pEJVa8txVTvjEI+
KJdcEMuEp8q8yjaVoxCfxC+yUZsOAvd9rLJtxuBC6qSt68k0UNTfdbzLcQxO
HlX5Q9yfBnqiGeLEh2PwMCWivpaSBm7ff//TejYG8i+kI8TzU6FfAHPuyRsD
LTnVrLX9qZBYMBtI3T4O56jux3wPpMChTYus0ynj0L+v9dvs4STQ0S32UM8Z
B63f0mZfNxLB6q3QSaXScSjSjteZKUuEYKWeYb62cVDw+VQea5AIf2+a8Pav
j8Ox88HG2x0TILzvzH173X/gfeCd0M3KD/BFOlPD0ugf9BWFJpQ//wBV97l2
GF78B4mRrhzuFh9gnqflk9Ltf9A/8fWI4Goc6J3S790I/weBd3lLJxXigFiq
pRo0/g9UnjV6Xc2LBR62JBa3hX8QcVgoPScwFqTNmX7ZEyYgPUco2+pCLBiv
VDoack2AyBjXf1XUWMg4qB7HT5+AO1Mr7/POxsDlWGBMCpgArgD99HrGaPju
pVBfsX8S7H0kbzMbRoAyay0pRHESGuMrXxgyREDC64tKJmgSDpvXHdbNDwfP
lCdRk2cmITI0iUldLByUf4448DyahN4oSSRFfAsJkhE7r7VPwj0pe6bq9jDg
zpLXUeifhO+FjjlXX4SBF6px3xifhOzYzsjY02GQmrTqpEmcgiODas5DTa8g
oEi8p5t7CvjeFqi5/3gJqn89UmmqU/BK5VUF41IouEjX11w/MQWTKNOgtTAU
Uh15/zTqTMG0nfIxCZ9QENz4zPvWaArO6/WxXucOhWWObg8Z2yk4t/6oRxZ7
Dql0pTPnwqYgoDHkTE9MCAgFjy0nTkzBXPW180lPg6Dwolvil9kp+J6d1qN5
NAjM5TnP5y9NgU93iFrMbCCEtynnfCdNw3nPzzN3jQOBZ5f/nUnuabh+SZfz
qWwAcCSJzyrANFgVEiQU1/0gzfVrDKY2DTEMvgl5uX6gr6tvcFxzGrwaD2z2
3/GDp1N304xOT8O1SljinvWF7UqVN+9dmYb8m55LwzM+QC27NF70dBoMf0bX
cbJ6w/sXy2+rQqeBjcdNTvqHF6hdCdJuej0Nn/W07NvfeoEHc2ZSf+w05H6W
KG/a7wUb+hQbas40dJ212Kt+0hOWumP+aPVNg6kEGtmX9gjGFnt7fsjOADyi
nn4W8wCyrjwt1To0A2eDIyT3nngA7u34hyKVGXjrPyWcO34fuLMjbBOPz8CQ
TEVRs/J9UL1jsnbfdAaCM3Yth/TfgzdzbbyifjPg174wesTcGS5Z+6yHBc1A
ra/W8gd2Z5BtVfz93/MZKLKkPJ4ovwsV6aEJixEz4KAcHEuRuwvTDgZKtekz
W+d6+DI7+x3QmK4zdOidAXPxjt6RBUfgvPjg8PDgDNSzOnTTsh2hp1FKwHR0
Bn4eTt/Xe9cRnFIDBtTnZyDtg9Te7FUHiLyp6cC7bRbCRI8fb9rmAAv/yp4W
H5qFtd3xZYI69lBi5uSoSJ8FybX94kw77SGwTsQo6egsmJIlzouU3wThTx6C
oTqzsCrnJ/xvwQ50b6BPVyxnIX/Hu+ryq7bwfjS/huXJLLiZ5J9p9bgGdq9O
ilx7PgtfjjIYBEldAyW1AdfysFkQX178e6LdBmoimA/cj52FPKEMxWwZG5jW
P//0b84syLFUBymMXwE8e+F02cAsMP6pPWQfcgkYrf2Thf7Owk66UO1/Wpeg
mU2Q6jqxtZ5KXI0X+RJcuqaeJbc8C1JFOyrmna0hcFcoTyTLHPzXf3051tYK
Ojzlul2OzMG5sCcM6vcvQoxsueIPfA6as+QP2x29CDe6zz2RVZuDj7mhwnoM
F4Gg5A7DenNwuuOVxP4XFrB3tD7a0HoO+useWB12uABO+jcuyzydg0mX1aMe
yBTw9c1C/9A5SCrGIvt6TYAh6fnOoddbelXibfbuJvCGnF8V/n4Ocu1nRHnL
jaEki0mSOW8OTvL22EmangeWXfGTg4NzkPwxT96z8Cygs57dA3/nwFfn+vZS
p7Pg8PRCbf/EHGgxFZT3SJ6FNiJPfN/SHJz6IG+VEH4G3g35mXdtn4f8eQV1
FT9DkE69VteiMA+KWg5xNt4GYPH3eH7zkXkIdi3hvqNhAM+ERRKb8HnQnLjC
jG03gIXQX14NGvPwrinn/MyLU1DookOvNZ2HlJTfbaVp+qB7TPpjqdc88BoH
2Lzh0IOH95lflzyeB3M+rleyKbqQmjnkU/xkHk6EiilsaukCl3ikZWHYPNyk
jPxS8tOBru1sfHnJ87C8LhSXzaYNN9qm/dJa58ErX12K00gD3rHW30ntmIch
6X+Z0RQNaNRIsv7cMw/9H2+QFNNPgEK+Jfo0Mg9/1I5zmXOegLXIlsWEtXng
F9vFa9OrDoE2mZejRBeA1+zo9EzsMRhFn/y27V8AkTPmLg3Gx+AET1zSHZkF
gHOe3Ukcx4BUGTqho7wAc5LTzqe8VcFF1OnO8skFaClZz6TdOQqXew/6GLgu
wJXqTtMRCkBZ1v6EAvcFUL9olvH+KQ7CT4RrxH0WIG7MNZcggEM3nYNlM3gB
jJ6eeO5xBAPDN9MvPn5YgB8myuYCvipw9ExqHKV5AUwm96XqXz0M76QSKm+2
L0C+Il9GEvNhWCNH/e3sWgDSwJje2RQlyPny9EDa8AIEV6LM4OVDIM12M9Ns
fQG+HvoiyBepCAK1B8qzxBchXqLyyIiwPNyLERveI70I4bGM7Fd+HoR2l11M
QfKLwPQ5b3bhyUF4Jv6frhW+CNHGz8xUNuWAyWe8ldVwEebz3n+bHZOFBfRx
8KrbFnede2Y6dAC+vh97e9drESZLnWs4nQ+AB6PUaZ/HiyC1rfaZ1rYDwNKY
XBL7fBG495+8LXJICvZeSHnXE78I5ruymTbC98PZB2nnDBsXwTLy4dKFj/tA
4Pc0q9WPRdjMGxoZNtgH/WoHK291LoL6ULVYwupesNuervh0cBHsvXfcK9Hf
Cz5vMzhqlhbhasbrgb+MYpCZm/0d9izBq2/sqTWfhOHeriVPvb1LMGnHeIfl
ijCgR4dVzCSXwOecWfjJPcLwXSM38Z7iEuh1DdV9DdsDg+15PpmaS3Dr526j
kWe7gWuhAEk6LEF4FK9btNUu6Dy/sXjk7hLs/hczNDAjAFEF+GeN+0swxs5M
KPYUACnvol2XfZbAytfaVyaJH9S4Slai3ixBjt7e80ZMfOB0sCyD+9sSVN2m
XjbZvhMuK+yOCqlaArNXiR8vfuSGc4fuB2yvXwIWOy/mMW1uUFFWsCR1LMHj
J8Q79iE7gKT6nnViYgk0+EmLHw9wwdwxwurVua18XhRcl/3JCX/UTYcGlpeA
GFSRtt2LE6o0uQo6KMvwU5PxZk4vBzw95XWtnG8ZAo2Usw0+sIP76b4zaPcy
lO1ThG0m7OBwhn40X2wZuGQOts+xscPZ83M702SXocVucYemOxsIXLQuDz++
DDMFeeVzP1kgyV5tt5PDMmQpb90OJ5gh3CFq2+TdZfgs8ePe0XvMEOS0tmDz
YBnGx4Ni0xmYwd45o+6C3zJkwslXO8WZQMld1FX73TJ0XVMW433IAOIe7pcr
YpchJd0mpXsnA/B5dZ06mrgMr85F12qm02DDN1RcKWMZeJ7oz25MUKHsKaVN
uGYZiDKfrx9woUBWiEVJRMMy5ARhFx4KUSDh+ddknh/LIBqiFaleSYaAV06e
LH3LUBK2TNvNTwaDyEHZlfllkHZ9wH+1hQi9KWUBTXtWYJj/r6ImeRNv/EcZ
P7hvBe6fu5Ox5/4GXiylrhMqtQLpzZd4pBbX8aik8u1GSitw5IG/UMbsGm75
oSKoS2cFpM9NLHygruIGf2gTmMEKHBIL8BV5uoIfEz2hF2m0Aowx948G863g
ojGVLJaWW8x3IoBfaRkfiqh6Onx3BT43D/NK+CzibV2MUxoPVkD+zp+aM4KL
eCW/pn6Sxwpcm1SXOpyzgCe8rmazDVqB9Z+nSkjT8/i1FzUhMzFb45tHGBZu
z+H/Ar8/X69bAZnxeclfldN4T+32OfOWFWhrFD5h7TyN1zPrGhb/XIHF42Yb
aP80nuJXx+U5sAL5G0Y1vSFTuL1X/QvG5RU411qxQ7VvArf4xrJgs7ECNWbz
mjZnJvBTpJNna8mrkNCaOfrn+z/8oHsD9xOWVSg7b3clt3Qcn3NtfMUpugqM
v2/OVVSN4oN5bEtOEqsQEKYi+fLkKP5jWf9cm/QqlPiTjB1+/sWz7jbxvD6y
CpVC1jMyUyO4s2Pza8GTq7AcknL116FhfPVa61uJe6uwTjncKM83iBseMguR
dlsFx4HM9qNlA3gycchH3msV7K19Kak3B3DzsMVb2JNV8KpMvvKqph8vKefT
OBWzCs0V/HWE4N84X0gsdjZ+FczEqaMP1H7jDqZS8ibJq0CKjDh9cKUPF53F
BC9lrQJt4j+itE0f7rv74pxzzSpkSxk/7UnswfvG/v590LC1/6Nn3miK9eCH
sx16PVpXYZQ/PLgzphsf1fWqCexZBQeH2Qs677twXdf4qKiZVfAxcdR7XNSJ
c7b906niWwPPwRKJ1/rt+I3oO6p1QmvwscM3MXG0DS+7sanULLoGnw01+C77
tOF3yOwiXdJrQFzj5K0q/YF3yCosT6quwTHjO5yueq34wbWvE3Mn1qDH2HVM
Yb4F969UH1zWWdt63/N9vxLRgtPNjRrIRmtw1Pjy4u6ZZjwy4F7czutrUGVf
zYaSm/Cls+S3AvZrcODy4/e7zZtwfeHA4D231+DR2xdCuuxNOCk3wlXSbQ2i
NfvqnVwb8UtDxafg+RoUKR3m/v21Hpc8yrBxOX8N7EMMhKoya/DUpI/7fhav
Qd6hdO/bCjW4Apf+Kc2KNWjWS1Z/kFmN04fD3ks2rcHT8D8MDoVVuF7Qfu2p
oTWQqeqJ+jFagTcv1DtdHF+D2fc+7464VuBGFo7vmqe34qNNixL+q8At5L9O
Z6ytAe4x2+N5uBx36NANc+FYh4Nn6hQPxX3DF1RnSkZ3rkOzDXPzito33DX5
5ZjJrnVI1Uk57T1Uinu59eK4+DokKJ7j+y5dir8Uu/WHhK/DadvSRI2WYjz3
VujBQJt1CBXSK9er/Yrjvw6brtutQ3Hw3oAo+le8VK3b285pHToku7+8Tc3H
a3bu7dB329JzTw41i8rDuwqy3Xa8WIdE7BtXZUQObrHPNNHnzTqws0T84hXJ
wf8EE1oWI9dBOfANT15SNj5hpbm3M2kdauJ943OKs3AC86/v74rXwcIua1sw
LRP3cnRbYK1YB5+jLqIyERk4U7fI7ke16/DILzylVjED50i94WjVtg6Tde81
f95Ix0XPbvCKj6/D+V1iDcen0/ATMXuupO3cAO5QZzeLsBRcIYxlb4XABkhL
3mZ1Y0jBdz9ZHezcswGqLjZ/5V0+4SsuPywpUhtgwjsiI2+djH869djcCG3N
9zp+7IxREv7mxJ1dN9Q3QDxDnzbTkYj7YFZd7lobgE45SDeYJ+IWEphxkuEG
LKbeoorcTMA5idNn1q9uQGXVPnXRxA84YbGbi8NuA/RYqu9m0T/g4+M1LXsd
N8DX+9ZvrDkOr/j5/pT+gw3ov3wvgYkch7ukntONDdmAiRf94kn3YvHeC8Vq
mnkbkDSQOieRH4V/P/OJbF60AafNyl+euBaF52i/KXUo2wAv3iTUyxeFP1Ny
QuH1G2DJ12VZRojE1VnF6ZP9GxBbq5dJywnHD1J3rJJHNuCPV4/bPalwXHCV
mMfzbwMGS2zZH8a+xZeGfimpLm5AuV3EGdrrN/jHwqfyL7ZtQn0HX0N/VBge
lnF/JpFtE4hSec1vxMNwrySbtMIdm3C8vnhvwJdXuPnLYzIjQptwcyzLZfz7
S5zdbnG/isImmOmGWkbzvcDv7rog/Nt0E0KuO13/yf4Mt9SXPdt1cROuP9Vp
upkXgut5Ev3bL2/C2mBvYJR1CL73b+x0nf0mLJ9LxtMKgvHWjJHiPK9NEHWb
LHhNfooXD+fOZT7ehDHOjLK2G0/wj3wB4mlPNiFP74Nnx88g3MP9QHB82JZe
/+z6ek4gLqvjcCE0eROCbhv73AzzxwXcjj1/mrYJuxVsrLy5/XGGL1yV/lmb
wDzhRSW9eoz37MyWflS8Cbe8qH/IkX544MDqum3rJiisifqQanzwkXve4SfW
NuGHaUqkqqcnPnpW8mo0gYCqq5iEKCKeuMUUJ0mITEC9u1BlSJkHri3yR5GP
kYDU9RXdprZ74MKPfSPYOAiIZZJv5VeaOx4mbK/0hIuA/rulJSx4wR1n+Xqu
adtOAuraKBv79587vjwhQWUQIKD6CVEd+b6HeKPh9xvrYgRk2bVJLgq4jx+f
yKC5ihOQYY/x/lfrrvhX34iopf1b49KX5nY5uOLxeXatszIEVHpg4gnV6h7+
cDc7ffQIAc26cReOWTrjUuNntrXrEpAb/wFzpSYnPMdQp8hfn4Ce73S4VX7B
CT9WoOqInyYgp4xDgR+nHHHjJzK/4s4RkP/XuR36vI74Y1mmj05WBCQb2f07
x+sWzvV601z8MgGdbT4/9k30Fh5FXODoukpArZcfQl2FPZ7T3H/vmB0BrR5t
+JfGZo8POX3V4nAhIO97HQUWt21xh+4vG+WuBGQ1kBt8sOUGvq6e+MXlIQHR
Fbo8ryjcwLl2vuT77UlAXI2tyxmE6/ix3Jujn58QUKyRODAWXcWj1oX9dd8T
0MD2pM7RMmtc6jIvTozf6k8U+f61U9Z4dj3rTEYiAQ3fZNY17rPC6yPXzgt8
JqAamahEI6oVvn60TWIsl4DKvUZMHK9dxP2Svne/+0pAha++ZggwXcS5OL+F
GBQRkOMg2++2RAtcavDzcm7ZFmvsq33ffwE39nlc7ddAQJyT8pne0mb40ITb
A3ozAXW+nZl962+K3zK6IzfVSkCP1Gyvy42a4H7iVq+NOrf88O6+dnC6MZ5V
Q7fZ+4eAZhJC+aVtz+GcrFOMZSsEdNWp7FqArSHeXODvq7lOQGqMT+VPEw3x
ZzfEaA2bW/W9ZZGr8eo0zlFjTO6kEFFCg/ObkGoDnMO7fH2ShYjeCnCY3Dl+
Cm+Wt7h/m52Ifqw9POQzqo8/619ZWeEkohh9hYMOwfo4O5JdovISkbC+c4zD
t5M42+qbGX4RIrpkO1TOcVAXb0xUvBUtRkQnLbnPrb3QwYPPNU7uFSeiNuto
cY51bZw1i/pP7gARZYU+TPNo1cJZbtkPn1AiohpbXafqDxr49mH1LkdtItr1
44zPje9q+PcXfcbLukQUrSZco2SqhgequXY81Ccivu1sT/QnjuHbYlLbHp8h
ImKKS60K7zGc2Yy/KfICEcVaRW0v9DuK12zLOilmSUTkX3/e5kgcxf3z9OuT
rInokxixNOE7wpl4fGozbYgo/LZYw1EehDO2TJXXOhKRII+M0HN/DK96FKB2
6g4RXd1Vylf2l477ye791uZMRNV3/RY0deg4wxOT4t8PiGgKl5pg5VfBaZoV
eYu+RKRhtZCY030YpxS9/SwSTkRL+QsMu0cV8E66mkbvOyKqpb1bK7BVwD/n
jfe9iSYiW7VX2w7MyePGWRgHRzwR/c3QVwMmeTztU68T4QsRFbaeNgw0kMN9
JP3++5pBRGcPHmtjHJPFTRNlP9zNJqK0keP3+7xlcca4R+0TX4no940CwZ9e
Mrh5uIhydyURzevH8e/+KIUr8H1vDqshIjZbm6SNDUmcKczpumEdEVke9lCo
OyuJZzwvD69tJqJjVNfpPvb9+LaAK5u53UQkYr2QGJi+D+9jZAu73UdEHupn
94aI7sOzfHJk5QaI6EXDEf7esL24pQeTZcIIERFkeR9tDxDDc1w+lr2c3Yr/
wy2f/VwEf7J42sxggYgeFK7YsuwSwa1ur83/t7xV/+j7jiKJwlt+0N3nvUFE
H3g8/9Oo3oNfujr52JGJhNZFVjLa9u3GlYdeCctsJ6HomOqpv/5COJs1yh9l
IaHqkIip7BpB/OuFkPGLXCSkM75DJNJoF85hJH9SX4iENGNOJXXE8uEjrb+G
twmTkNopX85uAh9eYODlXilKQq8Fnix8usiLX9X7kYbvJ6GKAxm7LaR58EL1
u1wHFEkopdM2NGd6Bx76TejTiBIJuSk8qmm7tgO3OVql/l6ZhNLszYIEh7lw
Loz3Lj8iIYKJnMjvEU78ukJ+B5M2CbE+VlxTZ+XAixt/JOfoklAnRUu4LJod
32E75XZFn4SmTGzraw6x40VxYnvLz5DQYrLJY6WrbDjnzmAHdwsSchIMTGKv
/w+/mp6kLmNFQrwYHPXh+Q8vOFnO03OJhPKKLu2Uv7Idv+K3UqhynYSsGcT4
W9m24fnL1tsWb5NQYhW/dvwzRpztpVtPnDMJPbzrkKO7xoBfOvgmzdCVhLYt
dhHu2jDgrNcbjL64k1CWmE0qQY+GW3UdeW8bsJVfq6B2A0bBc5wN7wo8IaF9
8a9IV0vI+H87bmrVBpMQS/3b+bETZDxb9/2U+EsSuvc+2fOWGQnfVsSCDUaR
0KnHM50fEwi4hYkE2/NYEvr5VFC19SgBz1w8NnD0Awnt+eAT2Jy3iV2QdXkc
+ZGE2lxvZCOlDSw9euCHcRYJueyNvB90aRVjxDcSmHJJKFNc5c7H/BXMrJPn
fk4+CZUo11g27FjBGDj1hLlLSMjMlfFizY8lzMQrx66ploRinx224fRYwFJ3
txx1rych/UhDv4H5eYxa8I9LpomESHXG7ky289jneeH8wDYSqp+12cl4aQ4j
Xwli0PhNQqkbnqjYZQY7R07oXBggodFRDZCizWCfIks/xQ2REP0GOJi8mMaM
fi6eJo+TkMOPbXUl+VPYR03LqMKFLf9cO/lhQncCU5Dag8Pylj8Mhb/Lhv/D
Cln6fhWtkhAf754au4lxrLHFbGcJgYxGqpNdvN+NYXNm5598Yyajb1PYUvX+
v9gDxCOl9h8Z/WoLyXn+cgSjibRXl7GS0VjWsns6dQTjHTGkVnCRkdh05a2k
f0MY7qB/v0qQjOz2x/S59w9ilYasfJp7yEhLSpRAvjKI6SvVZ1eLkNH7yui8
kxMDmOWa9myNOBmdJpxVYKYOYL4+J67VHdzSi4/WNj/1G2OzoTHqKZLRsZcr
HUGjfdgb7fK4eiUyMgwb7eHw6cOS2Y79bqCTkdrepd1Nvr1Y4xv8XPPxrfUN
bU6XfunCzj9YnzfQ3Iq/KdqZxtCF9V/4+rxFm4x27fSL8rX4hc2JKje06pPR
R++rtkG7OjHez4rH243JKPXZgx1ppe1YTMjcgJEZGfV2wZ6HCu2YlFP6o58X
yCjG+5tjYGIbhh+RK+iwJqOhbUX5whE/MMtvUgpddmQ0G1PbqpbQgo3FjTWZ
3iIjdflf/OIHWzAnv6Sb3Y5kdIaZcLm0sBnz1RX/2ONMRvnE/7q7e5uw5HYR
4d8eZPTvRCoXG2rEFPP6iy56kxGXhdVl9q8NWGF4tFm/Lxl9MfHY+XitHmu8
KPR6IJCMmjQ7amP967D5MT62oZdk9Iz8pLHuZw0WGjFcGf6ajAbyHjDEi9dg
8icz3E6Hk1GO9lLI+P1q7NYX3cniaDIadSik6R2swv45u9e/TSYj1tMauX51
5Vjgfl0fg89k1PLw1lw3Vo5JdvHiTF/ISKH/WkNzWhlmA+mf7mSTkUGYpRl6
/w37Qx0KPFVKRq9usnbUppZgXtlf1BjLychR5x5jvkoJJmLjtlZYSUZBF7bd
jK4uxi5+57khVUdG3P/2c3B0FWHdz7S1GX6SEcrsmIpK+YrdV+MhF3aSUb3g
HVHaVD7GvzCY59RNRhkj9VNqh/Kx8+cf7u/v36r3QJRZa2Mu9kMojangHxmF
p31co6lkY05ND0ocp8hoY1Z+ZDMyC+P01HLZP0tGctJz/JOMWdipoYGRV0tk
ZKk46qg9lIHVJXNXOZApSHDE95HJ9y/YDfMBNwkaBT1rJBVd1PuCbWNLVepj
pKDJTOfa2JY0TNNRM16XhYLydue/9BtOxcqP3PcR56UgtrvkJJNLKZj1mAbe
y09BaywtpxvCPmHkiB0LLwQpqGHP8LxfUzJ2lPD5ElmUguai3CKOG3zECip+
q/VIU1AOf3q3dVACZuqcshYqR0EqyxYersPx2KqEa4a2AgU1k/72dKvHY0eC
uERzj1BQT9jbTm7WD1jm6RPkUDUKeo7tdrjbGIv5aed4C5ygIP7rWEKHQSxm
ekyCMU6TgnZIWwlq/ozBSPLb/svSo6ABpVs/qOPRmB5HA/fPcxR0/N8Ze0bF
KGwPM3ptYUJBtIGwtYq3kdgcMY3/rxkFfVx3V/Jufoe9nX62e8WSgohKF19F
6kVgI41n9wvYUhCzIYMW38M3WH5VZfL7mxT0pnbOurP1Nfak+LDMAQcK2iWY
86RI5jWmkMqngN+loNvbSiqeT7/CHj3twSweUVDUqNazopgXmKHvyeIRTwq6
K5EetLnzBSbuVqx6y4eCttVsticEh2L1djEnPAIo6MdezbiBgOcYn97lU+9f
UNDmbqXLtfEh2D/19hapMApSN+m4J3IoBCvGNM5mvqEgjxDVEs3KYOzygf0m
FZEUlKlj4n934CmWvn3CeiSRgi7tbi1prAnEfCgXhu2TKQjX9bH/xhaIGa81
2CynUBBP+7EbBiYBGGE8zY45g4KW9dmwlvXHmE7tbWepQgpaiHuAX7ntiwl9
G1rJKKYg+nZeA7zbB5vJM3qAfaOguPQT93o0fLDXSUc89KooaJ+aHklA0hsb
erweYN9M2brPnU7n4fXEch/ZsSy3UpDJ4ottJeEeWKBLb/Cj9q3+Hsm57CXi
gR20KXnxrIuCytSOpbMoP8LcNLwjM4a2/Nd35aAxhxvWbH7VVPYvBe3V1JLD
tR9iore1eZPHKMjV+spphscPsJpo9uexU1v+6HdraOS4j3GtRvg8W6Eg0Yul
VoKmLthl9kfHWNYpKH0/kUDJdcZy91kT/DcpiJPvGtMUrzNmbrj/3iMKFVGU
iJLOw3ewhE9ZtvYsVPS39qbXlxQnbOXb6/3jbFQ0VhXDJifhhOl23h++wklF
r0T3wsYHR2yGduziBR4qijQy+3gw2QGjWzQY6glTkcuhzdTfnfbYkztf2GtE
qWiF5WfiZ1t77Hfgi3r1fVQkm6iZrUC2x3xyTTQwKSqKjb6jdPSGHdbIMaIi
dYiKuCctxVwdr2PCErVL8YepaFZY0H2j+Bp2G1IyRVSoyLrh+fEFjmsY3w0n
GX5ERTVppWst365i1uUEEWYtKpoWvcdhdfYylvVroNdbZ4s3tw9Fll3CmGYq
woknqcgEc/D3PHQJSxEM4l4+TUW/hj07BkStsaW7vMwjZlSUtJo480HCEtN6
slZhZUFFvbL5kRlfLmIR73s9ey2pKCiBe7UIv4ipNsWtt12hIlcutRCvCxZb
5+3B6fJbVBRo5ywd5WmG9aAdKUedqEhZgHQrrsQUkzNaulZwh4q0vS9Rgimm
WJtn4WCGKxWN2x1/8zrMGNvTrfUz1puKcr73K59YMML8S1U+n/Gjov3XXaIX
tIywmXgpH4aALdZ8o2H8/ixW6sCicD2YipZnaMcLrM9g1ozNTw++pSJbhenL
r3lOY9//lV4ejKAij+cPRgOeGmCKLenYyygqUsstTVFnNsBo716MLcdR0buI
tL4PzKewBPnzJ0pSqWjQSM2586oexsarJeiYTkUcx9HstyBdzGVDeV40i4re
BIfVFuToYFrVArF++VR05gZvq/JubWzMvG/jZAUVeXNPuRHlNDBDtaYfxGoq
uprD3rHd4wT2VaI0Ob2WihTk8r7NtR/HAudijXc2bfkppvNYS4g6Ju1/Javn
FxUtBH+4oK18DHt581xQcM+W/+5UkzJTVLFNQ01r1d9UVBH33I+8TxVrFJLk
+DC01Y8D1dH9wkexW5kTtrbTVJTQf/xf2mMc63zTqyY0R0VfcoqsxD9imKp7
I3/TAhX9uC9t0dlMxzi0v1QrrFHRoq/JJVUFFSyj77bYGo2GmHmGiiKUD2MC
FZfXPjHR0MPvptWWj5Uw749GLRe209DYLp57It2HsLN3jjz6xr4Vv29X7rbn
itjitvUufwEa4jYzPdKuII9ZTP9LpwvR0KiC+UZT/EGsqq3Hf2IPDVX/p1xQ
KXgQC4suPmywj4bAdrROnkcOU1byCuU9SEObTBCmfUMaa7PkPRShQEMhl84z
D705gDk+SWnfrURDmq90F5kbpLDkPz/5xOk0dCp5MvDiCUlMMPRA9KHjNNSx
sgkOTuJYXlGpap4GDR1YLlX0r92HGY0ZDWLaNOQ7TX8guG8fFqzqsU9dn4b+
jFR9VxsTw0jTbZ9OG9PQJQETRvv3Itg7gRsn201piMJ8yF1HQART0SBOG1+g
Ib92ifbqV8KYU6SkgqU1DU0dv298/PUebEjXPc/ejoa87+lSfH2FMA+XHaZz
9jR0kEXlBJ4siAnFJa3fdaQhr+uabC1tu7Bza63IzZmG9PyOyCzRBbDaJInK
IA8aym5NUtulyYtdbSu8yu5NQzuKOLrjwngwCsmQ+YUvDSU9a+cdG9+J4ecf
6oYH0pD+y9wjUrHcWCpDS0vSSxo6p+nqp3KMC/trvs795S0NlUl6qqlKcmLC
WfuMc6No6AzjjX1SwhxYqPX9vsokGrrbkRX14ggbVpf/QaThMw15UEoImmks
GI2z6XJbBg3to9ZKXmX4D3MuEfs3WEhDv9mCSKkLTFgaj77s+DcaMlbblPQK
YsRGb95znK2ioQVV8x2flRgwU8GGZWILDVX8uPiMVErBSjh33Lr9k4Zar7QI
xvuRsb1MJiMj3TSU0uRf/egiCfPfiLpgOkBDk4yEHF9tIjY5O9TWMEJD7ahr
Z4E6ATP8K6V3bGLLT/bxz6++26Dn9DiUZ83S0O39crJ89Wt0j+qN9IgNGmrQ
vJeo+mCZPlyoJslOYUC3tW/Upy0v0nUy/GO8mBjQ17I3Ys2BC/TUxEbeJRYG
dIh0P9xQcZ6+I5I75DoXAzplSti3Pj1LvxdqytjLy4BEaSGfo0tm6D2PY9wM
hBjQq7NrOyRip+kJTtJ2R/YzoLhuR7WXMpN0hwt5prsVGdALUR3TF8FjdBWt
49oMiAFV7jlZU2cyQqcoNh+Z0GJAv7AkPdz7D71eyFz8xxkGxEHRW1MhDdDD
mEe5v1owoKePBD7qVPfRLedvU2OvMyClisFJ5vfddKk+4tzjOwxoIrWyqkOi
kz5fE9Rv/4gBqQiQrxRzt9OD65NW3wUwoNjO8wM3/Vvp+5sruepeMKC1z8Al
q95MZ+NkfXsujAHJyHzqYitsoi+ePrtn8M3W/s2PUGuVm+hlPwYPrEYyoMMe
pJdm0Eg37yCekEhiQC8fMNzTGPxOf9an4uJdyIAODN59faulgl4xfPvj72YG
ZLXn+a8lSik9WbxAzvYHAwptx19aPCyhP7eh5Cy1M6CI4qC/8avFdIuxZ2Ws
3QzI2KPt3SViMX1l4nM3NsyABF5xTTvafqXLLPxlfbO6lZ9hZtzUlSw6t5Lc
S7GNLb2/31LvFWXS1+46C6QRGNH1JY0jQ/yZ9JplmkQVlRH1RXFutvSn063X
RVQXWBkR1ZXrq0VcGj2MYu5kIMqIvDXZ5UrLP9I3rHYqNu1lRMcFLtyIW0yi
W39rnD8pwYg6AhwmbGWS6LIex+7qSjMiAfrpZGpqAr1qU/yexmFG5NA52jA1
FUdfXJl1w3UY0afHDb1yBtH0s9OPA/Y7MSKmL2qvj/i/oHP2ZMaQyhiRIeHk
DbZH7nTqg0eGR24xoZqKlWTZsJN0QqL5534OZmShqP9LL2A33eHN5yCOUmb0
edQmaih6TKVA0o+R3W4bMu4elufNzlJh13KQ8mDZjmIe3c61/eSl0nWgscXl
63ZkK6u9K/6DrkrqOxAdNP8PLXr6cgd83qli9vkQ+66N/5CxQuGGT2e/srt3
9KOuJBZkb2Ku/cMkXvnTyK63LDqsaMijKv/VSXvlU+wshytXWFGksyEtJ0hO
2Z9K4u/a4t66+vObvnLKZcvz61NbvH1uxkfDQ075UH/3N75VVhTC2XG9746c
Ml/6p5N2W/yh7vHJvRZyyv2Guld2rG3Nv+u1wiQvp+wUFvjSap0VoYn+KqlO
WeVPge4uzlus11IvndIqqzzk7mQatMWdgaUmcg2yyudsTIWztzj5uQsjViar
jClLpTBvsKKylMMRNimyyrSu2vK0Ld7TKK6401NWGRqLEiq22NrEqzLjgayy
c1l6wK8tTiF27zR0llUeTX57irrJitoOaU69spVVrn9wvfvcFrtZ2NsrnJNV
ZnC4UGy7xcWR3AO9BrLK6PLpWI8tTq5UZw3SlVX+oqdik7zFzlyMz8ZVZZXH
VGV0SrZ4Vtt9+B0mqyyqJCLTtsVpwdpzBodllc0ld3KMbbFeV1c2o7ys8iuh
bfObW/zvTLxc8QFZ5f8BFlYrCQ==
     "]]}, {}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV0Xk81PkfB3C5mg4m0jEilSOiIbWUTa+vZXVSYpuUpChnqBQ6hJDN1YFs
VEjHuM8ZR8yXGfySXEsq1yZJKB2krGM/vz/ej/fj+d/r/X6tPOq195i4mJjY
TTL/3zuODTTTH85sEauU3bLiOg1JU0XvHpYNTnW/261CvP5eQlIBywm89vOh
SsR9SmpBvhqeMO5t7l5CvPN5e/4dlg8EswYPyhGrRSo/mFHxhxGjdpJBPLnD
8dYRjQAMxHlUTl+jMRjSKjoSHwRLVg/3KzHHabz8BisEmo2qvD5ikakiX5gU
huNVVH8rsZ6qce6oyp9YU7/ZSEicJO7AVb8fgac3VfJziBm9wan7NKLBi/5i
cZu49J+W50KbawgTeyJzmdh7j9MOu/jr6J4I/+JK3KV7xTSKFQvpF/vU9Ylj
7y2l1Q/GAf94nVlIvIOZvrkiKR6C6rIPX2No8D7V/zKi8hdcLNWRSexhb59/
5chtiF89siKMeFXDCHvF/UTwm2U07Imjs+Q1rTTuYnbU5F0G8e/KaWkfnO/B
V9pJviOaRkDN7QWVNsnwvxWankG8wUAnyjY+BUM927dvJU5etDvsKisNR5nb
TF2iaJx/fku0rzQNrzKGurWJ94X+I6568AG+j0kkf4ykMX/s5KWypIewUZi5
4U7s1xrrN6zCBYSmsIqgYR3ZxSumudC6kDFHmphtpjEWciQdHtwzE8VXSZ8F
/JPK9zPQ587fzSK2uvnazVIjG69O1NYLw2no7FTlKtZmY1pOocGVmCHh8b7f
OQchH99+lyE+XDKdJ7DJRXNlpmDPFRqLtK6x98fn4b2vuz4dSiOIUbD6T1Yh
Tjj7C82DaazZej0837sQ7ZWNutVBNFpCvT501Bai7cp6HxNiNQmdDPbZIpjt
1w1bH0ijZiqN3drCg87V8BdTF8m93+J/UYksgdTnehdtfxpF687Eb3tbgpNv
k3yv+NGw97YeP2lUCjex1Y5vfGnkfGSWiAZK0WVZ2hx9lsbegfDNbr8/wVLh
rsVNp2kkdJ0zLZqugHCOQuTwCRomSrZp3X8I0HNO85oG8eABQylGlgCipoKz
9h40lg/7O2atpfHXTNVwrRsNL1cDdbFOGurbGOFBzjTknXIeP9hYBbNh/ssY
Bxr7bVNyPn8RwcQtRlLJisZIh83cVMVq/Ch6/ExtD40we8Yxa9NqGJ3ZXqu9
m0aBo5ciL7Ya/lJ/H9pgQUPW0zj0vGENYhbOV9DbTqM6+NUB6Yu1iHiWM7uF
oqGfKSetxKjD4pp2cyGbxlN2tcNzvTokbWwOuElyOuT5lQXY1kGq13TiiA6N
KF6P95v0OjxvSC3/qUVjgM7qeGjxDLZXGkMU1Gncbduet+5mPTSfukSMK9KY
NxNkt3V5I5ay9Kx8pci/XDn2OuaN0D29l7lUkvTVquMg59mIpvGN6/niNLZw
2x07yhtheUnt0JsZAUq48UV8dhMkvLnSKaMCfLQefrKzoQmVfcM7w7sE+OPx
rWenZVqQXJM9MJ0pgLrVpwFhRCvWBaw0b/lNAMVLW42cU1phZr3mqwQEWJCV
HDGX3wq7R8mG+r8KMMGwZlv1tsLQbiguZL0ATTT/dPfGNsgLXzSLqQlwTi9o
+se7NgTenvN6v6QADUwFBTbVDt5jE4nYqgr4NmxCwugrHH1dpZrySwWWFMp1
z5rVg9Je3d4pZjl4vab1jZt7cez4tyWZGWWocruzzHa4D/EDcxaO6JZiTMOY
mXXiPWTZ2jHFpcUQ/5mxYJn6ILiK1uUuLD4MZhx41tnDCBZuuf4xugj1IRsa
ataMwFN/6XlfmUKoXBv6yf30GQJzr117T+VjaLynu03vK3TDdWPrpnKRNlhW
Jxv9DRICF8pgNBuyyo9G+vpG0e2TZV63MhORrkXHk9W+4/AhVsmfD7n4TmX0
uVwaB++G7dnVqx7BR19UuFj4A7nFjEnRtzT0ZIsimldOgA6c2tRcnYp/3VoT
tc79C73I3Zo9TcnQNpk9fbxsEh2jb5dI7bqLrakrnfOWTMPB6XDKHfFE+Cof
XvXGbgYsvq9Z3q8J0Bn+Y167hRhVfHX52HpRHBYyPzNEE2IU2zI9TOvgTUgK
EnNUk2ZR92wdOg32XYf7hrJXc3aKU5GHOr/qVEYjY/vR5Irv4tTDd2vrVtlE
YGxIcUF/vATFrrCUs/APR5H1VolYM0nqaEVCVDAvFJe2hd4r7JekTG2XGxu7
X8bKrh0v74dKURdMmv1iXIJgZBgSy9KXpsr9chsyPgXAbnnjz1l/S1NPrF3a
covOY6wuqtc7aDa1LkgtUjvRDwmS9j571RhUVfPgwwrGWSzsLkoVFzGomRaX
sZf/Ow2pi0E2m07OoY55CL743jkJMa59Tq/8XMpDyWRhX4oXTt3OiZKvmkvl
p2uu3avtgXLtcIac5zwq0eOyeo2mK+R2nNIJlp1PrfZgTbx7fByda5v+9n8y
nzrA/DFqAifk3oVan70M1a10JnnxlqM4lGMgpzwtQzn2O/g9Pe+AwNCUoM50
WSpKcuY3j5hDyBpQTpTdxaROxcXVKJccgJWc7MbaCSblraolODjBwVUp8WWd
xIZfC+LmE4t+jk19JnaXP3ii/CcHBr1dQsV/mZSBwbSKCrFiQdZuT+LM2Fs3
esc56LWxcF40yaQW/JDPch3jwCchMt5xikk9KJTl+33mICsy0N+PuOXCsjwt
4v5AH7so4klZs8zXIxzsd7VbxSfeHDjwYDOxsZFO9txpJqW6IuCh2CcOpDuf
VecRe6e+7Awf4gBNgsc1xOGyyQObiP1EBREdxCNil8cGBzkYzEy0kpphUjXO
ifIWxA0X3bv2E++qXXRA7gMHs08dpk8Qx40Ue1YNcEAdt74fTOx0wTfkNHG+
5a+umcSp+eYFbe85GPpNd1cl8X1rTn0YsZqhqu4LYrNtl/sNie21l8gPEW+L
rJv1oZ+DWyrzxmaIA5atXX6b+D9Ut2aL
     "]]}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV0ns01PkbB3AmaZI1LsmayKYZu5UUK6rNvr+lzYZqXCqVJrlGEVGhMohS
hhUaEiIql5B7rsl8ZUORVVauTVZEt7VSFL/P74/nPOd1zvuf5zzvpY7HrF0Y
UlJScWT+v81dhp/WjZz4deN0sLD9Kg0ZU7Z3v7ot1o+YaDwl/vl6YnKxujO8
YqKbW4gHNTghp3S8IDE9kdRAbPG4syhF3Q86ryYiqog5Qs2bs1oBCHyhmpBP
/NXcKeGQThCytHvoVOI3YR30IVEI2JuslIXEe5wna2LVw5BtJhCcJKZN2eXi
5PMo7fCR5xOvWWZy9z+ti1BRMarYTJzMcMjmZkRiqOJFOIeYKQm9sVsnGgXy
3sfnEFcOtD8W28aA0z1P0J9Iw5vnbG4vugxuSGnuPeLe1RdMo9TjkS+47eJI
HH/9+zru/itgWLLHDYjNWTkba5NF2Nk5myZFXPauZe17rau4qXKZH5dA4yif
X3ThUBKGrpzysiPWfvJe74eMa9gdsPU6mzg6T/knK51UfJPmOItENH7TzMwc
cbuOp08DPu8kDnqYpPjANg21e7bmyxIbGulG7RWlw7VNEnTkCo001Z3nL6ln
Qlj14p5yPI3TjxPo3ZWZ0C4XHiiNo7E7fICxbP9NqDM0uLuI5Sd8BFXJtzAm
m6EpjKXh3xHvP6aVjSR9+8rOGBo2wt6ye3XZeGQ5edqJWG+LzkTYoRwUxqxz
HPuD/LO43EczIxeeigUpE9E0rOJeeOzQyce2x82d/whp6Fosy2Y35mO13duG
fcTMOUdfD7kVYHVW/4uWSBoHK2YK79vexVDz4cCsSzRUl8fo2YkKoeb3INEk
gkYIs/jHi+oliA7kpPSH0lhhdjmiyLsEf85PDVAjbg8/NtLdWAKBe+QcyxDS
nzm6uXonS7GkRLw0V0Dj4bdMvY72Miw6ryvadIbcOy5aqyWswIvRnK5WPxql
+idEv7+qwJbBgcftvjT43jaTPhsq8aAz2L/9OI2Ct6wKergST73PjTd607Ae
jtjo8Vs1PgbejI08SiOxN9C0dKYW4WeC5U860diksTezb9d9uEwtKN/iSPq6
z3guM+8+UtO+aiseorFkLMApb1UdHl5V2pzCp3HM3Ygr1VMHBdsrRTF7aSg7
F2TdXFcPD4v7rN4dNOz2phd8+Eij9gebUiVjGu+7beVusBuQJfm06cpaGuf5
TBcb0wYcbE5WXmRIo9jpGLssvgHalT+dY+nTUPAyCT9t/BBcXe17L1fQaAjt
2id7thEDl7irZJbQMLijJKvBbMLUvzddzRg0Huk1ODxeQ2xhoHlCioZDoX9V
0N4meOxfapg2I0ZUWb/3y5wmiMIXXHg3JcZwXV73re3NaNWM7TkyLkbqs22F
+nEtsDaM03nzSowFsyH2ZktawcTsqa/1YiS67+Hrbm1FPOPbtKRODE6HroOS
VytMvRPYjbVi/Jrd6dRd04oDLr0rIyrFqMgWlZbrtUErM7z6baEYb23Gqi2e
tOHfHc4RZmli7MpKaPb9rh1cxbI/TE6LwbV6NyyO7EBTrH263wox2AKzDW7p
HRhUTe+K+VEMxby0SLnyDrh+zUnM4YgxxbTRs5J0wPtISuHzJWK01ZX79q17
hhpTjbNKKmIErgmZ+fzPM7SK298pT9fjCWvhQj2qE+O2t5WtHtXj1JP1SPyv
C/HPuWOLD9ZDrUSpT1q6H89t3Ycrzz1AmcS0pXWjBIOtFr1TZ+pQ75GyeO/Y
ICSM+k3u7bWY0DFh5Xm+xnOVC4VyNdVgfMlVXMx9g0x/bU8130oYzTqU2eSP
oWd337d4m3toCTN88nDFe1x1ufo61LwMWjGjX7LffcCloiCN8eUlGJ3s73u2
5l+o3L79sWdrETLfVDUpRI8jZPQXx7F9d6Ggefv94OB/kP+7Krt6bR6E7qWu
aZxP8O+ryPrLIAefqNzBw4JJ6Id9aeleext+BnTJIvFnLO+O7zqZl4n+fDry
6dIpCBSKVW79fAPTHh3XlgdOI77+grLevDSs3DRvxrXqKyoFkVVNnskwu7HU
rVBtBq5/t37v/DYRpzQPar+0n8W6kw6WvHki6I7tWtC5XYr6OfLBurjgOKiw
PjDpKSkq/qicZ+zCy5C5f61gWbI0Zb6oVC1sVTSOGFZ1zbdgUByHiJzXhy4h
d5tjWu0nBvXnAX2vR1oXMDHKVhwSzaHal3uabPMLQ6mN2Zz4LTKUZ43f+tGR
EAh+D79eMiRD6f46Gyh9R4ClveZ/Z4TPpRZdL+nWVj2DDcZh8eoGspTOwncb
uTn+sF/S+kX6L1mq8lVsN7/vBCaaoiTeIfMow+qp4t+MfJEow/ez5jCpszv8
j0vL+UClr/QGg2ZSLwcKPkdbe2Hu2RDb9T7zKeuRNTW2tR6QyuYXSJTlqFMv
+Yd3tLrheFJBlHK9HPXx4pbygzIuqFkZwVTyWkD5620vbUlxhJL5cd1QBXlq
q1uu9JVMB/SsavsroFqeSupkbtt27gDupoIzyP+O0q+6x+cd3ocDBUZKmjPf
UecijBJrSvYgODw9pCdHgXL6pLewQmMX8oY1rylYsiib2av2vM/WsFJSWNc4
xaLcGCoqwyM8XJrLWNxDrFN3Y24eMf1l4tsH4mpp1S8+xEaSXjF7mkUNSKdL
pod5YBfn7fQiLvhjdx2LWGK73U31K4vKLDC8ZTzEg1+iUOT0jeRPZCyOkPCQ
JwwO8CcOTz6zYjvxULCffRSxWbvxBmViO3d77XLiIHtb++SXPJhs0M2Xm2FR
j8K5uXcHeJDtaW4oJL4zzfHt6uMBbfezHhKX8DVjUon96eLIbuLzosk8J+I3
d65ZzZ1lUd+ftBp728vDk7NHeu2I26KTfBnE844frPMkPmqQntDYwwPlapMR
SlwddbFaSFy04xf3O8RD9rNMNeLRzastHxAHPhKu6enmgWO8bPVz4tX903bp
xPyVasqjxIeTLENdiRO0FkzMEp+ZDLqzkvh/xqxxCw==
     "]]}, 
   {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwV0nk41XkbBnBZT5QTNcopZJ0WQ0NR3ur+Gc1oaDmWsh9CGRlbKLSIsZUl
DXMsR0VUg459F8n5pZItUSOUZCQMKjQI833/eK7n+vx3P9dzKzt7mx8XFhIS
SiTz/21yfPhZ/YeAvVH7FZYuX6MhasTyeSNviUiNI/GXiHVvpKSXyLvihzty
uyOIBzeohZ7R8MKcoivjArFpy8via/L+cPc2/OxHrBarcGtJKQjFEqVfTxB/
NXFJPqZxAZ6DDWpWxCPhnfQxbiiuXzntsY/YyvVL7e/y4Ujb2N2uRUwbsSoE
6ZGQ3D1jKUe8TXVP4ZTSJQyt7vkyl04jXdgpRz0rBgfcuFW9xIyBsJtHNeIR
F7YzrYa4ur+jRWCZAAaepyYT+7BdTey5V6EoElzpQ9ynHWUUJ58Ela+UBYs4
6ca6enW7PyBRd6VthEfDhJm7uy6dC7NMY49K4vLx5h0TSqk4Oem0zJT4Vw6n
OOpYGmwOLswziVVaJ7Q2ZvGQxg+U60ijEc+X3WSmcR12jol5B4l/VMjO/uB2
AyuEgzUkiC80pq16YJkBBZPWB7WpNLbracbZcDPxg4ejrQpxxjeHIy/LZ4Mh
eLn2STKNsy3J9NHqbHQkdKZ5EB+N6BdWtbuFq463IUW8Yto3pCb9NrgfUycM
uTQCO5MCx5RysPz3lvHYJBoWsX3llfU5YJj6R64j1tqnMR1+LBelXVWGmYnk
nyUVvgpZedjirqqW+zsNs8RXJw9p5EPEtfNGagINTVPVHNajfOg1N9lJEzNE
fn0/5FaAxNaYPRev0HCsWiy6b1mIt2cz/OziaXyzOUHLmluEypCW4okYGqGM
km8vyZdiS8nMoyuRNLYYX40u9ilFg52l/aMIGh0R3h96HpWCpTudPh9O+iOi
mad1ugzG10TUbX+j0biQrdXZUY6ifX2ciRBy72fuDqXYKvhNXJ0KDqRR9n0A
d/+7KmwqoePOn6HB8bH44mtQjZxbO3rPnaZR8A+zih6uxmZda56vPw3z4ejd
J3+8h9HqmlJdHxopfcFGZYt16HT0HWW50TDcYJP9+sh9hD912/ThOOmrrb4Y
g38fkWevqZe60lAcC3Lhf1ePv4ObXShnGt7ueupCvfWYT28T1XGgIeta8Oet
nQ1oL4yIDTanYW2TWTD5kcaa5LTC2wY0JnosJW+yHiJANqBs8y4akRzGcQuj
h7jozlnI0adR4uLNKk96CA+pVJub22lIe+2JOKvfiFFPnu0pLRoPw7ptxc8/
Qktmg0GCMg2duzLiGxhNGH2+Ju2JGI0nWg+dWrY1IaWSnTcjQsOpKLDmgk0T
1NZKbVAWphFX/sbnbW4TePpvlbwWBRiu5/fcPvgUThlZzcMzAlzv+rno+8Rm
PF6uwjv2XgCppVB7Y8U2jL/yNvulUYAUdyuO5k9tCP3kvu4QLYBap6aTjFcb
snfoBX3fIMDenJcuPbVtsLoStuJjrQBVOdyyCq12lEl3JFuUCfCPxdg909Z2
vNJ+r3snS4AjfyY/9VvZAeGEQ6YJFwRQNxsfFsR0on+7p0PedwKwQowN3DI7
Ea16j9u4RYBV/IwYyYpOjAuYR998K8Acw0LLbKAT2YNHPZerCNBeX+H3emcX
wvx4mpScAMHbQhf//bsLx55JuuxabEArc80aLeolsvvnLp9obsCZ1l1ImerG
H9pTUSudG7C2VOb1smVvsItjsNk18gHKB4ya23YPwDxxIJUdUo+Gk9fW24wN
Yv3cnLznizpMa+xh8j3fo781yti//h6EZ/NWrVcfgY/+gZH+gGroLTmVW+SP
gcvTMXx+pBLN4dtbG7dMwCezInnfgXIoJYzO5oxPwqzx8OXdW0sx+uXN665t
n3Bme8Rj2rgY2SM1TdLxn2FbsHAg2K4Q0gp3JgYHp+A8wrrxkx4fse5lJzLU
ZhDMrxsb18nFDJU3+EvIF0x9cB5O3nEH/jp0qZzgXwyk91eP383Gm3w65pny
HNavS9r/Xucm5k928jYHz+P6P1tmfxbPwFZDicUTNV9Rk1ct2uWRDuObym5F
axexzm9gr/loCs4oOKq8tV/C3pLoRV0xLjTHjki9PChEPVMy0g68kIjVzEkG
PSdEGbaeiwqTvQrR+7wC1fRl1Izik9jIzfHw2F7TvdxUmDqXNucjz7mMvJ+d
M+pmhKn4jZUO2zZEYXqUtWqIK0J1zC7X+9snHGUWxiJJ+0QpYfPVNg1DoQjZ
H3GjdEiU4ocL9ineDoFyn8lfWRFilNmKw1K5zHMw0A9PktcRpxKsQsQ23AqE
vWLb7LLn4tTcXP7qqu4ATDfFDfiESlDWEte7xHT8kCLK8TdXY1C1O/5oZ4n7
YvXrspvCNINKcuzee9zUC2LnQy13+S6nGGbBvLaKkxDK4RQMyEpSOp9CNlo9
ccOptII42QZJ6tNjl5bpRVfUbo1myHhJUY+fTRa/TXGGjMkpzTDpFdTH/AUn
uQwn9H7X/jzo3gpqdBOdr3LWAYXXoTbIWUnRdZUO/U62cCjQk1FYXEl1aAxu
+si3wsWIzNDeXGkq1+DF1ni5I+APK/CkDzCpvXoXvfM/mcNMRnrnozkmNXT4
3njzIBuXxYTX9xLLPeFNXiWmZ6cXJolLuQ6fjxLrDfQJWPNMKmlj9Hz/OzZY
JfzDXsQl0YFy0wNsDFgedPvmK5P6NkhwWuEtG/4psVyXBSaVbTHc79XHBj/2
YlAgced+qSVd4qGL/vZxxLUKqxRne9mwdrdXqSDWtr7P+Y14j4FmvuQik4rP
KRlJ7mFDvPfpwyLiB/GTmg+62UD7/T8biW83adtEEgfSJTE9xCvvsiNNiUfu
8szElkh+tv67rr/YaD3v0WdNzK9JvjPykg2JU471nsTxte9eFRBTJyyywoif
G8swA4iLD/3P/S7x2NCq4KUXbIz+oH3gAXHo1EAhTaymr6r9gnj4LHf4EjFn
61rZUeLwoK3Kh4mTlaSml4gLPmTariH+D2evdPs=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.27854154140001797`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.560960923171875*^9, 3.560962564484375*^9, {3.561039636109375*^9, 
   3.561039658953125*^9}, 3.56112920446875*^9, 3.561129758421875*^9, 
   3.561728221640625*^9, 3.561789778953125*^9, 3.561982538609375*^9, 
   3.562046302078125*^9, 3.5620684565*^9, 3.5623515501875*^9, 
   3.562354640671875*^9, 3.562465837612381*^9, 3.5629616518125*^9, 
   3.56308663540625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"GProf", "[", 
      RowBox[{"r", ",", ".5"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MGProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"1", ",", "0", ",", "0.5"}], "]"}], "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{"1", ",", "0", ",", ".5"}], "]"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Moff", "[", 
      RowBox[{"r", ",", 
       RowBox[{"RMEG", "[", 
        RowBox[{"1", ",", "0", ",", ".5"}], "]"}], ",", 
       RowBox[{"BMEG", "[", 
        RowBox[{"1", ",", "0", ",", ".5"}], "]"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "Black", ",", "Black", ",", "Red", ",", "Blue", ",", "Green", ",", 
      "Orange", ",", "Purple"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560681211765625*^9, 
   3.5606812125625*^9}, 3.560690346671875*^9, {3.560764065890625*^9, 
   3.5607640684375*^9}, {3.5609589006875*^9, 3.560958947734375*^9}, {
   3.56095904615625*^9, 3.560959105921875*^9}, {3.56095917496875*^9, 
   3.560959185140625*^9}, 3.56095953784375*^9, 3.56095987390625*^9, 
   3.560960095078125*^9, {3.56096014796875*^9, 3.560960163203125*^9}, {
   3.560960209578125*^9, 3.560960216140625*^9}, {3.560960249765625*^9, 
   3.5609603524375*^9}, {3.560960590375*^9, 3.560960623015625*^9}, {
   3.56096066046875*^9, 3.560960662359375*^9}, {3.56096074303125*^9, 
   3.56096074534375*^9}, {3.5609608468125*^9, 3.56096085328125*^9}, 
   3.5609610010625*^9, 3.560961433171875*^9, {3.560962584234375*^9, 
   3.5609626198125*^9}, 3.560962852859375*^9, {3.56096288590625*^9, 
   3.56096290221875*^9}, {3.560962939140625*^9, 3.5609629453125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "::", "\<\"exclul\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\({\\(\\(0.30358685627153414`\\\\ \\(\\(Im[\\(\\(r\\^2\
\\/\\(\\(\\(-2\\)\\) + \\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\) - 0}\\) must be a list of \
equalities or real-valued functions.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.562465837690506*^9, 3.562961651890625*^9, 
  3.563086635484375*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk41fkXB3BL6Ua50chce7Y2SZL6aXl/B1F0M9wrKqNriYlJtrL0K/Sz
JJdJdCmEYibKei2VSSb3fpuUpbpIRBk/ZCm/Sorw+8wf5znP6znnec45z3NW
eh53OiIjJSWVRuKfbHdk+GnD2xM7xf4W09/20VhgpRbYx+Ki+KuH3QzxptzM
bCHLG6oKUxafiQc09GPCDAOQkfbt8TixfXNnZQ4rFD5nwmbfEOvzNQvntSNw
oDSg9RnxNzuvDA/DMxiZHfmhgXgkViLyEMSAhSluMbGL99S9i6xYBG/LY6QS
i6zUahuz4/FF+MktlNhEb0f5J+1EyHssdOISZ8vwigyuJ8Htw8CQCTGj/+y1
/YYp6FK8oSVPfPf1s+ZG7gUkco987mPTCPzR285NkIpY183HK4lfbUiwSmal
g/EgwppNnJ77fYPBoUto0FuTr0JsxyzeXp8tQPc2j9yXe2nUvHuy+b32ZaRo
TUUfJP7F3b0yweMKNmbmeqsQ67a8N9a5noUhA5+RJ/Y0UkqUVzsaXoW1/5ee
jcS7NAsK3vrmYmeUll2fHY0z9JVlf3LzEHdY9WAisZm5UfIBQT4cRPZez/fQ
yFNxiD/PKsAIu0oHu2mcas4Q7b9bgDS4Fj+1pbE/7rWM3qFCXN0leMEjXjIZ
FFWX/RvMLN/qnbChES5JDx/TLkJXV/rpE9Y0OPxXNbcbilBbWLhp3IqGsbXh
ZKxHMawi0i94EA8Ia4M0r9+E3jIORVnScEx76bfPsBQmluXR7aBhZK9XpPaw
FHqz8ydNiRmyvwwN+pYhsHJ8BX8njcN35iruc8tRXbTKefMOGiprLhi7CioQ
KlzZcdiCRgxDuCqRVYXNfh27VcxorLVNPVcZWIWPHUHCtZtoPIs7/rb7YRUq
6r+32G5K/kfW6KbxyWq0rVe5yjGhQc8WGEue1aC5Y8NzjhG596Ngszb/Dtqc
byZf0aNRvfGEYPffd6Bg3iwfrEvDPZAzFWRxFya6rmW7VtIoG2feEQ3fhU7K
y6A3WjSchs9t99v1B2ysIj+OsGhkvoq0qp6rR7Zs7Q0bJo0fNA4U9Drfx/TF
EOk3S8m/HtyykFFyH89VYn8NW0JDayzCq2R9Aw5ZhjhcXkzj+FFzA6meBvDi
JRFlsjSUvctuFG59gHc+UodWTYnheiC/bOJ/ItyaaHu9t1uM991c+WtqYqx4
ShX82iVGvDvjCMdKDGVH6a2tnWIIvY6r1aSLsXPHOYm1RAzFgB1xp7bQmDPN
mlvcLIb4bNdBudMPoTHzt+zsPTFMbynJaTCaYJ0gn56cI8YjYzGv2aQJFwv8
Tv2SJQavIrzuzIEmzFz6uH/3ZTGSa/oC3xQ3ITTg5/efyZzhhpLu39iPYaud
+tcGvhhX2/dUbEx7gt+Pp5grRYqhMB/jZqvVitsuNobZHDEyj7q4G9m0wtL/
duFqRzH0JUY8pYBWXI/U4FXuI3sXdXp13yN126VJ9/aIcadIUF1r3IY0NY2+
Sogxzhn7w76lDZJ6z3K1dWI438h4HLL0Gaqk9tcNz4tg4PhuuDFJgvWfsp3b
8kVQi7K18M2XgPVVcCzkqgjLSvKS5GslWOtiWbk8S4RpBsfYsV+C4YjeR/bp
IrQ11Ib0bm3HRFaT/5V4ESJNYua+/LcdH3Sc7IV+IrQwv/vOmOqEdkTntn4T
EcJa/oXMT13wLfdyKK1uhGqVUq+0dB9kotY7qt9+gJp+qyet2/vxQLvRQvH8
n3jgl6N+YGwAq8RxNvIODZg03MEsOTaEKy/OGvdT9ZD5enOZusEI7iZuOtN5
qw7m87waTukYqpNWODmz7+BJrFkLvfY95H6cdvRRqIX2hdGvRe8mwEhttOdV
VWF0qq+33eQDipXb2iMKK1EwUtekmPIRzsLRFn5qORQ1f38/MPAJufs0XDs8
S8A/Wu2Tp/8ZLm94u9s3FOMzdXPg56gp2Cm9WKIu/ztCTUVVKxq/wKkguHfe
uwB9paKkpyun8STxWqNQko8ZP0nWmsgZ6DpZLpKY5mLdD4vmfOq+wZNfXmkY
kwXbayt9K1TnsOpw3dtDUxkI0zys+8ZtHv/JXu28k3kJRmPOCp1sKYrrujnX
KekiljMnGKJpKWqwN+k3nuEFLLifVaaXLU2t3TL4odiLD3+zuq7F9jKUuard
ZWb5Odzc45lX/1mG0qlN8BxNiMPkqNqyQYEs1WB2XqVu8iyqObay6dYLqMLM
NQqaCdGI2h2XWzW4gAqJdLr0K+s0Vr6ye3E9biHV+OX7kWPCCFhsiU1nmcpR
nmXGzaxTJ+Gm1fpV+rkcpfyuZ4FWTwgmm5L7A2MWURkGBd45HkHIXOAe6qTP
oJS5kSPMuwFY3lt9TUbEoLiP0j5+ovyx8HQM919Biym95+VDJpO+kCpyL+tX
lqdyILLZb30EwVfKkpUfyFOuksYZ9VpP3Ft3jqEUoEBp9OpK1yTwoGQXbHRW
cQn1wia4cyjyJ/Ssb3se8ccSSlnnEa9O6SDKr0J/wH0pFVQffcRjlwt+KjNX
0pxbSvHH7cfkX3ARHZcf01OsSJny1E9uinNCybBmluJeJvVTSrOOQ9aPcFRS
3PpwmknlWNUblPPZOL9QRr3nHz/rXm5LLPo6OTtB7Mm6JNubxIZ5/6tGtRkm
tUz4ckiBWE1Y4hBAbOZa0eibyEY/l+2r8o1JuZ2I/0s7no3QTL7Aa5ZJjbnn
yaVGsVHCj44IJw64vWr1auLB6FC3ZOIVE3vs759hw/Wom24tcU2vu2D8NBs7
LIxK5eeYlNTMI9j9mw25nsfiCuLenbl9shFsoO3+DZqYsfepWlY4G+EiYVI3
cXVTjosp8citLMeF80wqXVqugxfGRstp/1euxCoZyoP3TrCxKPhwwzHi2GBV
Y2diyodz/SyxaWJN2FgoG5X7th29RWzFbmSqE49abtj7J7H8uIl7ZQgb+lv0
NnQQz93aWrqH2H2dqvLoP/3xL+dfB7ORoa0wOU+sFbyCE078f1J0TPk=
     "]]}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwVl3c8198Xxz/b6msnK8ooRUZI8Xm/z7XKTlLKSmioSKhIRXZGUSoVWclI
IiORmS1bRFYIIXvPn98/9z6ej3vuPeee83rcx7m7ra8bXSARCITureH/szuf
SYee8QDcyLo4wDnbDF/fTTmHhw9ARrp8z9cjzdC1TfqlUfQAvMwv7+0QaIY1
p6uF7CkD4GKWlrJjowkwGGIMKRqAVc/IV/OlTVDY/ivKd3QAMuMDS5UNmqCI
sbLyFhqEBx8+7Bi50gilV6IEzo4PwvqT056mbnWQ+ffqVcuFQTi1zsIko10H
by8r59sQ/oAA6N9W4asD34vtpg7cf0BSaaJk9ct30LLmeOVN/wNj/vf28m7U
QsNZX9604D9Q+Sg8+WNoDXRp2W8nHxiCcd+2ipKeSqirVLnAqDQErUl1EVez
K6HwKHP2f6pD4FyyzV8nuBKiNRKNeU8NgX7Od61E5UqwRr+fHrg3BKzhVeod
LytgROkU55m6IQj7XohRrcthfg/G9sF+GNr7DqbG8H4DvF+tMtB1GC47fCst
nSkFvygtj8vew7DbkzVCqK4UeLiNJ0VfDsOE7+UqL69SOES82vCqbBj4p8MV
liZLwPVXxOMAgRE4cf8Lq8OPYlh7PMdmWz0C15yOt5x/UgAauiuVqq0jcOOR
obS5cQEE0wiewr0jILJ9qKqApwB23mOZ6pwbATfS153ZkV8BvyLSeGLXX1i+
8Lnn8od88NAwDIXbf8FJZ19VwO8vQFp+zy4gPgocPnGGJWE5IFCnNgsyo6AU
f4lf3CYHFGI7ftgeGYVgprN67Qo5cEGb4XWa/ih80k0IEO/IhqqX1uJqt0Yh
H5RLzolnw2NlPmW7ylFITBEQ3ajNBMG7fjaf7cbgXPqkvfvxDFA03Hm0y3kM
jquq/CHuzwADsSwJ4v0xuJ8WVV9LyQCP77//6TwZA/ln0lES+enQL4i59uSN
gY6cWs7a/nRILpgNpm4bhzNUT3X/A2lwaNMq52TaOPTvbf02ezgF9PSLvTRz
x0Hnt7TF141ksHktfFypdByKdBP1ZsqSIVSpZ5i/bRwU/D6Uxxslw9/rZnz9
6+OgfjbUdJtzEkT2nbrrqP8PfA+8Eb5e+Q4+SWdrWZv8g76i8KTyp++g6i73
duPz/yA52p3T0+odzPO2fFC6+Q/6J74eEVpNAIMThr0bkf8g+DZf6aRCAhBL
ddRCxv+BypNGn8t58cDLnsLqsfAPog4LZ+YGx4O0JdMvR8IEZOYKf7Y5Fw+m
K5XOxtwTIDrG/V8VNR6yDmomCNAn4NbUytu803FwMR4YU4ImgDvIMLOeMRa+
+yjUV+yfBEc/yZvMxlGgzFZLClOchMbEymfGDFGQ9PK8khmahMOWdYf18yPB
O+1RzOSpSYgOT2HSFI8E5Z8jTrwPJqE3RhJJEV9DkmTUjivtk3BHypGpuj0C
eHLk9RT6J+F7oXPu5WcR4INqPDfGJ+FzfGd0/MkISE9ZddEmTsGRQQ3XoaYX
EFQk0dPNMwX8rws0PH88B7W/Xuk0tSl4ofKignEpHNyk62uuHpuCSZRt1FoY
DunOfH8a9aZg2kFZfZ9fOAhtfOR7bTIFZw362K7yhMMyZ7eXjP0UnFl/0COL
PYV0utKpMxFTENQYdqonLgyEQ8eWkyemYK76ytmUxyFQeN4j+dPsFHz/nNGj
rRoClvJcZ/OXpsCvO0wjbjYYItuUc7+TpuGs98eZ26bBwLsz8NYkzzRcvaDP
9Vg2CDhTJGYVYBpsCgn7FNcDIMP9axymMQ1xDP5JeV8CwFDf0Oio9jT4NB7Y
7L8VAI+nbmeYnJyGK5WwxDPrD9uUKq/fuTQN+de9l4Zn/IBadmG86PE0GP+M
reNi84W3z5ZfV4VPAzuvh5z0Dx/QuBSi2/RyGj4a6Di2v/YBL+bslP74afjy
cV95034f2DCk2FFzp6HrtNUezePesNQd90enbxrM96GRvRkPYGyxt+eH7AzA
A+rJJ3H3IOfS41KdQzNwOjRKcs+xe+DZjr8rUpmB14FTIl/G7wLP5yj75KMz
MCRTUdSsfBfUbpmt3TWfgdCsncth/Xfg1Vwbn1jADAS0L4wesXSFC7Z+6xEh
M1Drr7P8jsMVZFsVf//3dAaKrCkPJ8pvQ0VmeNJi1Aw4KYfGU+Ruw7STkVJt
5szWux65zMFxC7Sm64ydemfAUqKjd2TBGbjO3zs8PDgD9WxO3bTPztDTKCVo
PjoDPw9n7u297Qwu6UEDmvMzkPFOas/nVSeIvq7txMcyCxFiR482sTjBwr+y
x8WHZmFtV2KZkJ4jlFi4OCvSZ0Fybb8E0w5HCK4TNUlRnQVz8r6zouXXQeSD
l1C43iysygWI/FtwAP1r6MMl61nI3/6muvyyPbwdza9hfTQLHmb5p1q9roDD
i+OiV57OwidVBqMQqSugpDHgXh4xCxLLi3+PtdtBTRTzgbvxs5AnnKX4WcYO
pg3PPv6bOwtyrNUhCuOXAP+8cLJsYBYY/9Qecgy7AIy2ganCf2dhB1249j+d
C9DMLkR1n9g6TyWhxod8AS5c0cyRW54FqaLtFfOuthC8M5w3mnUO/uu/uhxv
bwMd3nLdbkfm4EzEIwbNu+chTrZc8Qc+B8058ocdVM/Dte4zj2Q15uD9l3AR
A4bzQFDyhGGDOTjZ8WLf/mdWsGe0PtbYdg766+7ZHHY6By6G1y7KPJ6DSbdV
VS9kDvj6ZmFg+BykFGPRfb1mwJDydMfQyy1/VRJtjp5m8IqcXxX5dg6+OM6I
8ZWbQkkOkyRz3hwc5+txkDQ/C6w7EycHB+cg9X2evHfhaUCnvbsH/s6Bv97V
baUup8Hp8bna/ok50GEqKO+RPA1tRN7EvqU5OPFO3iYp8hS8GQqw7No2D/nz
CpoqAcYgnX6lrkVhHhR1nBLsfI3A6u/R/OYj8xDqXsJzS8sInoiIJjfh86A9
cYkZ22YEC+G/fBq05uFNU+7ZmWcnoNBNj15rPg9pab/bSjMMQV9d+n2pzzzw
mQbZveI0gPt3mV+WPJwHS37uF7Jp+pCePeRX/GgejoWLK2zq6AO3RLR1YcQ8
XKeM/FIK0Nvqd9j581LnYXldOOEzuy5ca5sOyGidB598TSkuEy14w1Z/K71j
Hoak/2XHUrSgUSvF9mPPPPS/v0ZSzDwGCvnW6MPIPPzROMptyXUM1qJbFpPW
5kFAfCefXa8mBNtlX4wRWwA+C9XpmXh1GEUfAlj2L4DoKUu3BlN1OMabkHJL
ZgHgjHd3Cqc6kCrDJ/SUF2BOctr1hK8auIm53Fo+vgAtJevZtFuqcLH3oJ+R
+wJcqu40H6EAlOXsTyrwXADN8xZZbx/jIPJIpEbCbwESxty/EARx6KZzsm6G
LoDJ42NPvY5gYPxq+tn7dwvww0zZUtBfBVRPpSdQmhfAbHJvuuHlw/BGKqny
evsC5CvyZ6UwH4Y1cszfzq4FIA2MGZxOU4LcT48PZAwvQGglyg5dPgTS7Nez
LdYX4OuhT0L80YogWHugPEdiERL3VR4ZEZGHO3Hiw7ulFyEynpHj0s+D0O62
kylEfhGYPubNLjw6CE8k/tO3wRch1vSJhcqmHDD5jbeyGS/CfN7bb7NjsrCA
3g9e9tjirjNPzIcOwNe3Y69v+yzCZKlrDZfrAfBilDrp93ARpFhqn+iwHADW
xtSS+KeLwLP/+E3RQ1Kw51zam57ERbDc+ZlpI3I/nL6Xcca4cRGso+8vnXu/
FwR/T7PZ/FiEzbyhkWGjvdCvcbDyRuciaA5Viyet7gGHbZmKjwcXwdF3+50S
wz3g9zqLs2ZpES5nvRz4yygO2V8+f4fdS/DiG0d6zQcRuLNzydtgzxJMOjDe
Yr0kAujBYRULySXwO2MReXy3CHzX+pJ8R3EJDLqG6r5G7IbB9jy/bO0luPFz
l8nIk13AvVCAJJ2WIDKGzyPWZid0nt1YPHJ7CXb9ixsamBGEmAL8o9bdJRjj
YCYUewuClG/Rzot+S2Djb+svkyIAGtwlKzGvliDXYM9ZEyZ+cDlYlsXzbQmq
blIvmm3bARcVdsWEVS2BxYvk9+ff88CZQ3eDttUvAauDD/OYLg+oKCtYkzqW
4OEj4i3HsO1AUnvLNjGxBFoCpMX3B7hhTp2wenluK55nBVdlf3LBH03zoYHl
JSCGVGRs8+GCKm3ugg7KMvzUZrye28sJj0/4XCnnX4ZgE+XPRu84wPNk3ym0
axnK9ioCixkHOJ2iq+aLLwO3zMH2OXYOOH12bkeG7DK0OCxu1/ZkB8HztuWR
R5dhpiCvfO4nK6Q4auxycVqGHOWt7nCCGSKdYlgmby/Dx30/7qjeYYYQl7UF
u3vLMD4eEp/JwAyOrll15wKWIRuOv9ghwQRKnmLuum+WoeuKsjjffQaQ8PK8
WBG/DGmZdmndOxiA36frhGryMrw4E1urnUmDDf9wCaWsZeB9ZDi7MUGFsseU
NpGaZSDKfLx6wI0COWFWJVENy5Abgp27L0yBpKdfU3l/LINYmE60ZiUZgl64
eLP2LUNJxDJtlwAZjKIHZVfml0Ha/Z7A5RYi9KaVBTXtXoFhgb+K2uRNvPEf
Zfzg3hW4e+ZW1u67G3ixlKZeuNQKZDZf4JVaXMdjUsq3mSitwJF7gcJZs2u4
9buKkC69FZA+M7HwjrqKG/2hTWBGK3BIPMhf9PEKri52zCDaZAUY4+6qhvKv
4GJxlazW1lvMfyxIQGkZH4qqejx8ewU+Ng/z7fNbxNu6GKe07q2A/K0/NaeE
FvFKAW3DFK8VuDKpKXU4dwFPelnNbh+yAus/T5SQpufxK89qwmbittY3jzAs
3JzD/wV/f7petwIy4/OSvyqn8Z7abXOWLSvQ1ihyzNZ1Gq9n1jcu/rkCi0ct
NtD+aTwtoI7be2AF8jdManrDpnBHn/pnjMsrcKa1Yrta3wRu9Y11wW5jBWos
5rXtTk3gJ0jHT9eSVyGpNXv0z/d/+EHPBp5HrKtQdtbh0pfScXzOvfEFl9gq
MP6+PldRNYoP5rEvuexbhaAIFcnnx0fxH8uGZ9qkV6EkkGTq9PMvnnO7iffl
kVWoFLadkZkawV2dm18KHV+F5bC0y78ODeOrV1pf77uzCuuUw43y/IO48SGL
MGmPVXAeyG5XLRvAU4lDfvI+q+Bo609Jvz6AW0Ys3sAerYJPZeqlFzX9eEk5
v9aJuFVorhCoI4T+xvnD4rHTiatgIUEdvafxG3cyl5I3S10FUnTUyYMrfbjY
LCZ0IWcVaBP/EaXt+nD/XefnXGtW4bOU6eOe5B68b+zv33sNW/dXPfVKW7wH
P/zZqderdRVGBSJDO+O68VF9n5rgnlVwcpo9p/e2C9d3T4yJmVkFPzNng4dF
nThX2z+9Kv418B4s2ffSsB2/FntLrU54Dd53+Ccnj7bhZdc2lZrF1uCjsRb/
Rb82/BaZQ7RLeg2Ia1x8VaU/8A5ZheVJtTVQN73F5W7Qih9c+zoxd2wNekzd
xxTmW/DASs3BZb21rf89//dLUS043dKkgWyyBqqmFxd3zTTj0UF3EnZcXYMq
x2p2lNqEL50mvxZ0XIMDFx++3WXZhBuKBIfuvrkGD14/E9bnaMJJX6LcJT3W
IFa7r97FvRG/MFR8Ap6uQZHSYZ7fX+txSVWGjYv5a+AYZiRclV2Dp6e83/uz
eA3yDmX63lSowRW4DU9oV6xBs0Gq5r3sapw+HPFWsmkNHkf+YXAqrMINQvbr
Tg2tgUxVT8yP0Qq8eaHe5fz4Gsy+9XtzxL0CN7FyftM8vWUfa16U9F8FbiX/
dTprbQ1wr9ke78PluFOHfoQb5zocPFWneCjhG76gNlMyumMdmu2Ym1c0vuHu
qc/HzHauQ7pe2knfoVLcx6MXxyXWIUnxDP936VL8ufiNPyR8HU7alyZrtRTj
X26EHwy2W4dwYYNyg9qvOP7rsPm6wzoUh+4JiqF/xUs1un0dXNahQ7L70+v0
fLxmx54OQ48tf56p4RYxeXhXwWeP7c/WIRn7xl0ZlYtb7TVP9nu1DhysUb/4
RHPxP6GElsXodVAOfsWbl/IZn7DR3tOZsg41if6JucU5OIH51/c3xetg5ZDD
EkrLxn2cPRbYKtbBT9VNTCYqC2fqFt31oHYdHgREptUqZuGc6decbdrWYbLu
rfbPa5m42OkNPonxdTi7U7zh6HQGfixu96WMHRvAE+7qYRWRhitEsO6pENwA
acmbbB4MafiuR6uDnbs3QM3N7q+82wd8xe2HNUVqA8z4RmTkbVPxDyceWpqg
rf0+R9VPmaTgr47d2nlNcwMksgxpMx3JuB9m0+WpswHohJN0g2UybrUPM00x
3oDF9BtU0etJOBdx+tT65Q2orNqrKZb8DicsdnNzOmyAAWv17Rz6O3x8vKZl
j/MG+Pve+I01J+AVP9+eMLy3Af0X7yQxkRNwt/Qz+vFhGzDxrF8i5U483nuu
WEM7bwNSBtLn9uXH4N9PfSBbFm3ASYvy58euxOC5uq9Knco2wIcvBfXyx+BP
lFxQZP0GWPN3WZcRonFNNgn6ZP8GxNcaZNNyI/GD1O2r5JEN+OPT43FHKhIX
WiXm8f7bgMESe4778a/xpaFfSmqLG1DuEHWK9vIV/r7wsfwzlk2o7+Bv6I+J
wCOy7s4ks28CUSqv+ZVEBO6TYpdRuH0TjtYX7wn69AK3fK4uMyK8CdfHctzG
vz/HORwW96sobIKFfrh1LP8z/PbOcyK/zTch7KrL1Z8cT3BrQ9nTXec34epj
vabreWG4gTcxsP3iJqwN9gbH2Ibhe/7GT9c5bsLymVQ8oyAUb80aKc7z2QQx
j8mCl+THePHwl7nsh5swxpVV1nbtEf6eP0gi49Em5Bm88+74GYJ7eR4ITYzY
8tc/u76eG4zL6jmdC0/dhJCbpn7XIwJxQQ/1p48zNmGXgp2NL08gzvCJuzIw
ZxOYJ3yopBcP8Z4dn6UfFG/CDR/qH3J0AB48sLpu37oJCmtifqQaP3zkjm/k
sbVN+GGeFq3m7Y2Pnpa8HEsgoOoqJmGKqDduNcVFEiYTUO9OVBlW5oXriv5R
5GckIE1DRY+pbV64yEP/KHZOAmKd5F/5leGJR4g4Kj3iJqD/buiICJ3zxFm/
nmli2UFAXRtlY//+88SXJ/ZRGQQJqH5CTE++7z7eaPz92ro4AVl3bZKLgu7i
RyeyaO4SBGTcY7r/xbo7/tU/KmZp/9a69IW5nU7ueGKeQ+usDAGVHph4RLW5
g9/fxUEfPUJAsx48hWPWrrjU+CmWdn0C8hA4YKnU5ILnGusVBRoS0NMdTjfK
z7ng6gVqzvhJAnLJOhT8fsoZN30k8yvhDAEFfp3bbsjnjD+UZXrvYkNAstHd
v3N9buDcLzctJS4S0Onms2PfxG7gMcQFzq7LBNR68T7UVTjiuc39d9QdCGhV
teFfBrsjPuTyVYfTjYB873QUWN20x526P22UuxOQzcCX0IMt1/B1zeRPbvcJ
iK7Q5X1J4RrOveM5/29vAuJubF3OIlzF1b9cH/34iIDiTSSAsegyHrMuEqj/
loAGtqV0jpbZ4lIX+XBi4lZ9Ysh3r5ywxT/Xs81kJRPQ8HVmfdM+G7w+eu2s
4EcCqpGJSTah2uDrqm37xr4QULnPiJnzlfN4QMr37jdfCajwxdcsQabzODfX
tzCjIgJyHmT/3ZZshUsNflz+UrbFWntr3/afw039HlYHNBAQ16R8tq+0BT40
4XGP3kxAna9nZl8HmuM3TG7JTbUS0AMN+6tyo2Z4gITNS5POLT28uasbmmmK
59TQ7fb8IaCZpHABafszOBfbFGPZCgFddim7EmRvjDcXBPprrxOQBuNj+ZNE
Y/zJNXFaw+ZWfm9YfdF6cRLnrDEld1KIKKnB9VVYtRHO6Vu+PslKRK8FOc1u
HT2BN8tb3b3JQUQ/1u4f8hs1xJ/0r6yscBFRnKHCQadQQ5wDyS5R+YhIxNA1
zunbcZx99dWMgCgRXbAfKuc8qI83JiveiBUnouPWPGfWnunhoWcaJ/dIEFGb
bawE57ouzpZD/Sd3gIhywu9neLXq4Kw3HIePKRFRjb2+S/U7LXzbsGaXsy4R
7fxxyu/adw38+7M+02V9IorVEKlRMtfAgzXcO+4bEhH/NvZHhhPqOEtcetvD
U0RETHOrVeFTx5ktBJqizxFRvE3MtsIAVbyGJee4uDURkX/9eZ27TxUPzDOs
T7Elog/ixNKk7whn4vWrzbYjosib4g2qvAhnbJkqr3UmIiFeGeGngRhe9SBI
48QtIrq8s5S/7C8dD5Dd863NlYiqbwcsaOvRcYZHZsW/7xHRFC41wSaggtO0
K/IW/YlIy2YhObf7ME4pev1RNJKIlvIXGHaNKuCddA2t3jdEVEt7s1Zgr4B/
zBvvexVLRPYaL1gOzMnjpjkYJ2ciEf3NMtQAJnk840OvC+ETERW2njQONpLD
/SQD/vuaRUSnD6q3MY7J4ubJsu9ufyaijJGjd/t8ZXHGhAftE1+J6Pe1AqGf
PjK4ZaSocnclEc0bJgjsei+FK/B/b46oISJ2e7uUjQ1JnCnC5apxHRFZH/ZS
qDstiWc9LY+sbSYidar7dB/Hfpwl6NLml24iErVdSA7O3Iv3MbJH3OwjIi/N
03vCxPbiOX65snIDRPSs4YhAb8Qe3NqLyTpphIgIsnwPtgWJ47lu78uez27Z
/+GR//xUFH+0eNLCaIGI7hWu2LPuFMVtbq7N/7e8lf/Yu86iySJbetDf67tB
RO94vf/Tqt6NX7g8+dCZiYTWRVey2vbuwpWHXojIbCOh2Ljqqb+Bwji7Lcof
ZSWh6rCoqc81QvjXc2Hj57lJSG98u2i0yU6c00T+uKEwCWnHnUjpiOfHR1p/
DbOIkJDGCX+ubgI/XmDk41kpRkIvBR8tfDjPh182+JGB7yehigNZu6ykefFC
zdvcBxRJKK3TPjx3ejse/k34w4gSCXkoPKhpu7Idt1Ot0nyrTEIZjhYhQsPc
ODfGd1sAkRDBTE709wgXflUhv4NJl4TYHiquabJx4sWNP1Jz9Umok6IjUhbL
gW+3n/K4ZEhCU2b29TWHOPCiBPE95adIaDHV7KHSZXaca0eok6cVCbkIBadw
1P+HX85M0ZSxISE+DFT9eP/DC46X8/ZcIKG8ogs75C9twy8FrBSqXCUhWwZx
gVZ2Fjx/2ZZl8SYJJVcJ6CY+YcTZn3v0JLiS0P3bTrn6awz4hYOvMozdSYhl
sYtw244BZ7vaYPLJk4RyxO3SCQY03KbryFv7oK34WoV0GzAKnutqfFvwEQnt
TXxBulxCxv/bfl2nNpSEWOtfz48dI+Of9d9OSTwnoTtvU71vWJBwliJWbDCG
hE48nOl8n0TArcz2sT+NJ6Gfj4XUWlUJePai+oDqOxLa/c4vuDlvEzsn6/Yw
+j0Jtblf+4yUNrDM2IEfpjkk5LYn+m7IhVWMEd9IYvpCQtkSKrfe569gFp28
d3PzSahEuca6YfsKxsBlIMJTQkIW7ozna34sYWY+uQ5NtSQU/+SwHZfXApa+
q0XVs56EDKONAwbm5zFqwT9umSYSItWZejLZz2Mf50Xyg9tIqH7WbgfjhTmM
fCmEQes3CaVveKNitxnsDDmpc2GAhEZHtUCKNoN9iC79kDBEQvRr4GT2bBoz
+bl4kjxOQk4/WOpK8qew99rWMYULW/q5cvzdhP4EpiC1G4flLX0Yi3yXjfyH
FbL2/SpaJSF+vt01DhPjWGOLxY4SAhmNVKe6+b4Zw+Yszj76xkxG36awper9
f7F7iFdK4z8y+tUWlvv0+QhGE22vLmMjo7GcZc9M6gjGN2JMreAmI/Hpyhsp
/4Yw3MnwbpUQGTnsj+vz7B/EKo3Z+LV3k5GOlBiBfGkQM1Sq/1wtSkZvK2Pz
jk8MYNZrurM1EmR0knBagZk6gPn7HbtSd3DLX2KsruWJ3xi7HY3RQJGM1J+v
dISM9mGvdMsT6pXIyDhitIfTrw9LZVf/3UAnI409S7ua/Huxxlf4meajW+cb
250s/dSFnb23Pm+kvWV/Xawzg6EL6z/39WmLLhnt3BEQ42/1C5sTU25oNSSj
976X7UN2dmJ8HxWPtpuSUfqTe9szStuxuLC5ARMLMurtgt33FdoxKZfMBz/P
kVGc7zfn4OQ2DD8iV9BhS0ZDLEX5IlE/MOtvUgpdDmQ0G1fbqpHUgo0ljDWZ
3yAjTflfAhIHWzCXgJTr3c5kdIqZcLG0sBnz15d43+NKRvnE/7q7e5uw1HZR
kd9eZPTvWDo3O2rEFPP6i877khG3lc1Fjq8NWGFkrEW/Pxl9MvPa8XCtHms8
L/xyIJiMmrQ7auMD67D5MX72oedk9IT8qLHuZw0WHjVcGfmSjAby7jEkStRg
8sezPE5GklGu7lLY+N1q7MYn/cniWDIadSqkGRyswv65eta/TiUjtpNaXwLq
yrHg/fp+Rh/JqOX+jblurByT7OLDmT6RkUL/lYbmjDLMDjI/3PpMRkYR1hbo
7TfsD3Uo+EQpGb24ztZRm16C+Xz+pMFYTkbOencY81VKMFE7j7XCSjIKOcdy
Pba6GDv/nfeaVB0Z8fzbz8nZVYR1P9HVZfhJRii7Yyom7St2V4OXXNhJRvVC
t8RoU/mYwMJgnks3GWWN1E9pHMrHzp69v7+/fyvfAzEWrY1fsB/CGUwF/8go
MuP9Gk3lM+bSdK/EeYqMNmblRzajczAubx23/bNkJCc9JzDJmIOdGBoYebFE
RtaKo866Q1lYXSpPlROZgoRG/B+Yff+EXbMc8NhHo6AnjaSi8wafMBb2dKU+
RgqazHatjW/JwLSdtRP1WSkob1f+84DhdKz8yF0/CT4KYr9NTjG7kIbZjmnh
vQIUtMbacrIh4gNGjtq+8EyIghp2D88HNKViqoSPF8hiFDQX4xF11Og9VlDx
W6NHmoJyBTK7bUOSMHPXtLVwOQpSWbbych9OxFb3uWfpKlBQM+lvT7dmInYk
hFvsyxEK6ol43cnD9g7LPnmMHK5BQU+xXU63G+OxAN1cX8FjFCRwFUvqMIrH
zNX3MSZoU9B2aRsh7Z9xGEme5b8cAwoaULrxgzoeixlwNvD8PENBR/+dcmRU
jMF2M6OXVmYURBuIWKt4HY3NETME/lpQ0Pt1TyXf5jfY6+knu1asKYiodP5F
tEEUNtJ4er+gPQUxGzPo8N9/heVXVaa+vU5Br2rnbDtbX2KPig/LHHCioJ1C
uY+KZF5iCun8CvhtCrrJUlLxdPoF9uBxD2b1gIJiRnWeFMU9w4z9jxePeFPQ
7X2ZIZs7nmESHsVqN/woiKVmsz0pNByrd4g75hVEQT/2aCcMBD3F+A0unnj7
jII2dyldrE0Mw/5ptrdIRVCQplnHHdFDYVgxpnU6+xUFeYWplWhXhmIXD+w3
q4imoGw9s8DbA4+xzG0TtiPJFHRhV2tJY00w5kc5N+yYSkG4vp/jN/ZgzHSt
wW45jYJ429WvGZkFYYTxDAfmLApaNmTHWtYfYnq1N12lCiloIeEefummPyb8
bWglq5iC6Nv4jPBuP2wmz+Qe9o2CEjKP3enR8sNephzxMqiioL0aBiRBSV9s
6OF6kGMzZaufO5nJy+eNfXngwLrcSkFmi89YSiK9sGC33tAH7Vv1PZJ70UfU
CztoV/LsSRcFlWmoZ7IqP8A8tHyjs4a29Nd36aAppwfWbHnZXPYvBe3R1pHD
de9jYjd1+VLHKMjd9tJJhof3sJpYjqfxU1v66PdoaOS8i3GvRvk9WaEgsfOl
NkLmbthFjgfqrOsUlLmfSKB8ccW+7LUlBG5SEBf/FaYpPlfM0nj/nQcUKqIo
ESVdh29hSR9y7B1Zqehv7XWfT2ku2Mq3l/vH2alorCqOXW6fC6bfeXf4EhcV
vRDbAxvvnLEZmvr5c7xUFG1i8f5gqhNGt2owNhChIrdDm+m/Ox2xR7c+cdSI
UdEK68/kj/aO2O/gZ/Wae6lINln7swLZEfP7YqaFSVFRfOwtJdVrDlgj54iK
1CEq4pm0Fnd3voqJ7KtdSjxMRbMiQp4bxVewm5CWLapCRbYNT48ucF7B+K+5
yAggKqrJKF1r+XYZsy0niDLrUNG02B1Om9MXsZxfA72+elu8uW0ouuwCxjRT
EUk8TkVmmFOg96ELWJpQCM/ySSr6NezdMSBmiy3d5mMesaCilNXkmXf7rDGd
R2sVNlZU1CubH5316TwW9bbXu9eaikKSeFaL8POYWlPCetslKnLn1gjzOWe1
9d4enC6/QUXBDq7SMd4WWA/anqbqQkXKgqQbCSXmmJzJ0pWCW1Sk63uBEkox
x9q8Cwez3Klo3OHoq5cRptjubp2f8b5UlPu9X/nYggkWWKry8VQAFe2/6ha7
oGOCzSRK+TEEbbH2Ky3Tt6exUidWhauhVLQ8QztaYHsKs2VsfnzwNRXZK0xf
fMl7Evv+r/TiYBQVeT29Nxr02AhTbMnEnsdQkcaX0jRNZiOM9ubZ2HICFb2J
yuh7x3wCS5I/e6wknYoGTTRcOy8bYOx8OkLOmVTEeRTNfgvRx9w2lOfFcqjo
VWhEbUGuHqZTLRgfkE9Fp67xtSrv0sXGLPs2jldQkS/PlAdRTgsz1mj6Qaym
osu5HB3bvI5hX/eVpmbWUpGCXN63ufajWPBcvOmOpi09xXWqt4RpYtKBl3J6
flHRQui7c7rK6tjz62dCQnu29HermpSdpoZtGmvbqv2mooqEpwHkvWpYo7Ak
57uhrXocqI7tF1HFbmRP2NtPU1FS/9F/GQ9xrPNVr4bwHBV9yi2ykXiPYWqe
jQJNC1T04660VWczHePU/VStsEZFi/5mF9QUVLCsvpviazQaYuYdKopSPowJ
Vlxc+8BEQ/e/m1dbP1TCfN+btJzbRkNjO3nviHYfwk7fOvLgG8eW/d6dX1ie
KmKLLOtdgYI0xGNhfqRdQR6zmv6XSRemoVEFy42mxINYVVtP4MRuGqr+T7mg
UuggFhFbfNhoLw2B/WidPK8cpqzkE853kIY2mSBC95o01mbNdyhKgYbCLpxl
Hnp1AHN+lNa+S4mGtF/oLzI3SGGpf37yS9Bp6ETqZPD5Y5KYUPiB2ENHaahj
ZROcXCSwvKJStTwtGjqwXKoYWLsXMxkzGcR0ach/mn5PaO9eLFTNa6+mIQ39
Gan6rjEmjpGm2z6cNKWhC4JmjI5vRbE3gteOt5vTEIX5kKeeoCimokWcNj1H
QwHt+9qrX4hgLtGSCta2NDR19K7p0Ze7sSF9zzxHBxryvaNP8fcXxrzctpvP
OdLQQVaVY3iqECackLJ+25mGfK5qs7e07cTOrLUiD1caMgg4IrNEF8RqU/ZV
hnjR0OfWFI2d2nzY5bbCyxy+NLS9iLM7IYIXo5CMmZ/501DKk3a+sfEdGH72
vn5kMA0ZPv9yRCqeB0tnaGlJeU5DZ7TdA1TUubG/lus8n17TUJmkt4aaJBcm
krPX9EsMDZ1ivLZXSoQTC7e921eZQkO3O3Jinh1hx+ry34k2fKQhL0oJQTuD
FaNxNV1sy6KhvdRaycsM/2GuJeL/Bgtp6Dd7CCl9gQnL4DWUHf9GQ6Yam5I+
IYzY6PU7zrNVNLSgZrn9oxIDZi7UsExsoaGKH+efkEopWAnX9hs3f9JQ66UW
ocQAMraHyWxkpJuG0poCqx+cJ2GBGzHnzAdoaJKRkOuvS8QmZ4faGkZoqB11
7SjQJGDGf6UM1Ce29OSY+PTymw16bo9Tec4sDd3cLyfLX79G96reyIzaoKEG
7TvJaveW6cOFGpIcFAZ0U/dafcbyIl0vKzDOh4kBfS17Jd4cvEBPT27kW2Jl
QIdIdyONFefp26N5wq5yM6AT5oS969Oz9Dvh5oy9fAxIjBb2MbZkht7zMM7D
SJgBvTi9tn1f/DQ9yUXa4ch+BpTQ7azxXGaS7nQuz3yXIgN6JqZn/ix0jK6i
c1SXATGgyt3Ha+rMRugUxeYjEzoM6BeWYoD7/qHXC1tK/DjFgDgpBmsqpAF6
BPMoz1crBvT4geB7veo+uvX8TWr8VQakVDE4yfy2my7VR5x7eIsBTaRXVnXs
66TP14T0Oz5gQCqC5EvFPO300PqU1TdBDCi+8+zA9cBW+v7mSu66Zwxo7SNw
y2o209m52F6fiWBAMjIfutgLm+iLJ0/vHny1dX/LI9Ra5SZ62Y/BA6vRDOiw
F+m5BTTSLTuIx/alMKDn9xjuaA1+pz/pU3HzLWRABwZvv7zRUkGvGL75/ncz
A7LZ/fTXEqWUnipRIGf/gwGFt+PPre6X0J/aUXKX2hlQVHHI38TVYrrV2JMy
tm4GZOrV9uYCsZi+MvGxGxtmQIIvuKed7b/SZRb+sr1a3YrPODth6lIOnUdJ
7rn4xpa/v9/S7xRl09duuwpmEBjR1SWtI0MC2fSaZdq+Kioj6ovh2mzpz6Tb
rouqLbAxIqo791erhAx6BMXSxUiMEflqc8iVlr+nb9jsUGzaw4iOCp67lrCY
Qrf91jh/fB8j6ghymrCXSaHLeqnf1pdmRIL0k6nU9CR61abEHa3DjMipc7Rh
aiqBvrgy64HrMaIPDxt65Yxi6aenHwbtd2FETJ80Xh4JfEbn6smOI5UxImPC
8WvsDzzp1HsPjI/cYEI1FSupshHH6YRky4/9nMzIStHwl0HQLrrTq48hnKXM
6OOoXcxQ7JhKgWQAI4cDCzLtHpbn+5yjwqHjJOXFug3FPbj5xf6Dj0rXgcYW
t6/bkL2s7s7Ed/oq6W9AbNDyP7To7c8T9HGHisXHQxw7N/5DpgqFG36d/cqe
vrEPulJYkaOZpe4Ps0TlDyM7X7PqsaEhr6r8F8cdlU9wsB6uXGFD0a7GtNwQ
OeVAKkmga4t76+rPbvrLKZctz69PbfG2uRk/LS855UP93d/4V9lQGFfH1b5b
csr8mR+OO2zxu7qHx/dYySn3G+tf2r62tf+2zwqTvJyyS0Twc5t1NoQm+quk
OmWVPwR7urlusUFLvXRaq6zykKeLecgWdwaXmsk1yCqfsTMX+bzFqU/dGLEy
WWVMWSqNeYMNlaUdjrJLk1WmddWWZ2zx7kYJxR3essrQWJRUscW2Zj6VWfdk
lV3LMoN+bXEasXuHsaus8mjq6xPUTTbUdkh76oW9rHL9vavdZ7bYw8rRUeGM
rDKD07li+y0ujuYZ6DWSVUYXT8Z7bXFqpSZbiL6s8icDFbvULXblZnwyriar
PKYmo1eyxbO6nsNvMFllMSVRmbYtzgjVnTM6LKtsKbmDc2yLDbq6PjPKyyq/
EGaZ39zif6cS5YoPyCr/D5YJRSU=
     "]]}, {}, {}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV03k01vkXB3CEpPJgUtl3RZKMqKa8v0UjS/WILNlbiEq0Uf0Gjx8RHr+U
pKhsTdZkDxU93y/KXjE0tjISWVsIid9n/rjnntc595x77j33Kh86tf+oAB8f
33US/2bzo4OvqobOGWkW5+4qXMdA0FjGt1faBmtuTH/MJ/71XkJSofQRqD37
3JRL3C+nxvHX8MEGq8TZP4ktGtsL7kifReXf0953iNWi5e8vKF5Awn6WUizx
nPnhm+4ageiQ/SAdQvwptJVxj+dgQDDE3pfY7sj3p9ekQ+FjOt7pSMwYy5TS
SZfhGGGYbkKsq7r90TfFK6hs98jXIk4ScMtUT4tCy6PIRWLEIn0hqbYaMeid
yb89psWg/N3rRtrmKijB0fMNxL7sI+ZO8bFYH70n4QFx94ZwY650HFTkGrMO
EMfdW12l7ngDzwtWJq0lNmdlbXuWFI+5f/5+Pa3JoGSsYdO44i28rzWUiCU+
4eJSEO5+G3bOwtIOxCpN4zpKaYmo2F/hoUAckyu51krjLtILrFuT1zLYJZ+e
PuR5D/9jB3xzJg6suS3+3CYZM0VCjquJ9Q20uQ7xKZDijfwIXcMgWWrf5Ujp
dGREbI7drsHgUuNNxrY8HVyJgcF+dQa2Ye8EVB3vo3vUJOIK8bJJv6CKpD+h
n9V2t06NQUBrXMCIYiZ0Net1tVUZWEd3lzyuykSOF6f+qQoDHRONyVD3LEzF
ReVZEvcXlvrJp2VjLjHc5pAyA6vrf3vv1XiIWvN3q08qMtC2UM2UqX2IiM+j
gkMKZN+LTnwc8MzDaInFtkPErmXz+ZU2j7DcQDzGUp6BlOZVHfv4fGQJlVbz
yTLgiBSuuSJdhMU6HS8/SjHQMo2NKPAtgln1XL4m8euwU0OdtUVw15jwO7aC
3M8i7Wyd88WoD5C51CXJoOZnuk7r6xLY3npZeZdF5v0av0kxugy2s0r/jRZh
ULzxXPzuf8pQ2cJWTVrMwMXX+rvf1nLonbicliHMIG+UVcYMlmNCbP/vjwUZ
7B+M2Oa96wks3ebUC/gYJHRfNC6ef4aZLxs7xKdp7JBzSO85UAmPn2+ej03R
+HTQUEgktxI3grg3Xk7SUBi5cDh3fRVuKiydP/eVxikvA3W+rirU8X0dyByj
IXkkL+P+Zh5SHDyeBPbTsHdIyZv4zCAscv2X9400xjttRFNlqqGV5nowoIHG
ZReRo9bG1XgXI752WT2NwsOnZEriquFM90+te0FDzGd72CXDGghY2/lb8mhU
h7w9KPxHLRxNruVJlNDQy5EQlhOpw9XWLckFiTRe6lS7NerWQalBGt9v0XDL
D6gIdKiDrUGE85YEGtySXt/3WXV4FZImVxJHY7Aqt/PPPfW4Yy/7NJZL426b
Wf7G6w0IZq868DqQxtIFjpOpQjM6upZyg1xpJHjZuWj/3gxJ96ENwc401Fq1
3SR8mhF7nRcR6EjDKLP9cOfTZmhdsXQ7a0ejLDO+uFSnBcIcfZ7JPhqj1iNP
LJpaMDqmpnvBiMaBjJv1Z5a/RpfOeKehLA11q7FBOqoVItdM43Y38SATZLrV
M6UV7IiV9eH1PIjnJkeJlraiq3w4hXnBw6yItY5VXyvMBEo2GdI8tFSVnunZ
3AZ+V2clvsc8XNTlzE9/aIPtvTIHlRQemlgrVuhQ7egbUrMo9OPBv2kLEr69
xVavcFf3ZTysKpLo4efvhfaKwZ0vtj5HSZ9xQ/O2PpxUKrbXRhV43ndkHUb6
4XxbObLuxDNMamxn5Z78iOi9pxVMjz+BwEy2uKz6J3z7Utrtv6kcBgtuJdYP
RxBtlLGCb81jNITqN9VojePV1Ie+Yu0SKF4dnskcm0BV4vlj78mfDH/v7WnT
/YIaydW2J3cUIP1TRZ1YzFcUpYYdqXB5BDH5B+P9/d+ws4EbBItcRHsVeySr
TUFK51rsoBX5ayq7/1jQd1RfbV+t7PQAZ/WYopX0NLI/qYaMtKej9yET9Up5
Ft2KJr96u6Xih3droubFHwhbEr/XRz8Z63YsnveomINebIxlbU0STFOVPfNX
zUOu8tCJpp234C/vqvLeaQG82M/vlO3joT1yYGn7Hj6q89zPPsWG6/iFNSHC
zPJRQ69ulo04xEKwMjFPNYmfSgiecLHMicFx/Yq3SywEqEkb7eq2N5HINjuU
/GxKgPr+RnwjJywck8My4gPxi6h8W7OdOs2hKLY2XRRnIkhdm/Q98deWEATt
DrtXNCBITa81YvnLBUO527wjLUyIkmyrlmPF/gdbDUPjpPWEqVclJ0XtpS7A
SaF5hv+NMKXv9VA08rfzmKzj9vlyFlOS/CFXu8POIEHQ5ex+NRFqWG2XqtNe
P/zSU5wqwIhQ6835JMpqfSD0B8dmi98SKo810P5W6Tj4Ml3y+iRFKSNpBrdV
juH07TyuJE+Umlgj8HGP2VE8XRchIuGzlIrS4i7h/nUIEuantUPEllHZVerc
oDdu6Frf8ubCk2VUb9j5XRVNznh0F2r9LsuplZxov8X3D8I5z0BCfn45lWc3
myL0wQ7BYSmcriwxij3v0XNpxwHkDsonilmyqMNrH1RN/GINKwmxzbWzLKo0
5pKB5k82IoUEZLuI54u/GI3OscHMTP6cIN7oabU7n9igr5uW+cGiPO2rnbcQ
yxTm7vMhxvLw62Y/2Oiz2eMpNceici76aHnPsHE2ITr+8E8Wdc+wUChnko3c
6OALAcRuzivW+RIPBJ914hJ73HCy0ie293JSKSV2WZ+a/OQbG9u3aj8UnSf9
4vjNG7+yIdxVX51PHD+7/MXYZzbQUplRQ9wR2vOjgDiAKYzqJM74cEPXn/hT
TqKV0AKLWiJXlrQwwUbTH8e77Yntv7YEiRMvPu1adZI4+WV7ees4G5SHdVoI
8R376qkE4oK9v3nlEL+NtfFTJh7eucHy+b/1+lN5H8bYUDNU3fAXsR4ncDyT
2GXdKslh4o4zoxt8iG8qLp1cIO4SMfbTI/4/TvRhPw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{380., Automatic},
  PlotRange->{{0, 4}, {0., 0.29608604628703633`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560960678109375*^9, 3.560960753140625*^9, 
  3.56096100865625*^9, 3.560962627390625*^9, 3.560962856984375*^9, 
  3.56096295290625*^9, 3.561129204796875*^9, 3.561129758765625*^9, 
  3.561728221859375*^9, 3.561789783609375*^9, 3.56198253878125*^9, 
  3.562046302234375*^9, 3.562068456671875*^9, 3.562351550359375*^9, 
  3.562354643296875*^9, 3.562465837784256*^9, 3.56296165196875*^9, 
  3.56308663559375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Moff", "[", 
  RowBox[{"0", ",", 
   RowBox[{"RMEG", "[", 
    RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "3.5"}], "]"}]], "Input",
 CellChangeTimes->{{3.560791415203125*^9, 3.560791416046875*^9}}],

Cell[BoxData["0.17428552835630667`"], "Output",
 CellChangeTimes->{3.56079141715625*^9, 3.561129204859375*^9, 
  3.561129758828125*^9, 3.56172822190625*^9, 3.5617897836875*^9, 
  3.5619825388125*^9, 3.56204630228125*^9, 3.562068456796875*^9, 
  3.562351550390625*^9, 3.562354643359375*^9, 3.562465837799881*^9, 
  3.562961652015625*^9, 3.563086635609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NIntegrate", "[", 
  RowBox[{
   RowBox[{"2", " ", "Pi", " ", "r", " ", 
    RowBox[{"Moff", "[", 
     RowBox[{"r", ",", 
      RowBox[{"RMEG", "[", 
       RowBox[{"1", ",", "0.5", ",", "0.5"}], "]"}], ",", 
      RowBox[{"BMEG", "[", 
       RowBox[{"1", ",", ".5", ",", "0.5"}], "]"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56076305171875*^9, 3.56076307465625*^9}, 
   3.561129721734375*^9}],

Cell[BoxData["0.9999999999967507`"], "Output",
 CellChangeTimes->{3.561129758890625*^9, 3.5617282219375*^9, 
  3.56178978371875*^9, 3.561982538828125*^9, 3.562046302296875*^9, 
  3.562068456828125*^9, 3.56235155040625*^9, 3.562354643390625*^9, 
  3.562465837815506*^9, 3.562961652046875*^9, 3.563086635625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MGProf", "[", 
   RowBox[{"r_", ",", "Rhwhm_", ",", "Rrms_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Moff", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"r", "^", "2"}], "+", 
         RowBox[{"rt", "^", "2"}], "-", 
         RowBox[{"2", " ", "r", " ", "rt", " ", 
          RowBox[{"Cos", "[", "th", "]"}]}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"RMEG", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], "Rhwhm"}], " ", ",", 
       "3.5"}], "]"}], "2", "  ", "rt", " ", 
     RowBox[{"GProf", "[", 
      RowBox[{"rt", ",", "Rrms"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"th", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"rt", ",", "0", ",", 
      RowBox[{"3", "Rrms"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{
  3.56023260703125*^9, {3.56023299115625*^9, 3.5602330049375*^9}, {
   3.560233058515625*^9, 3.5602332281875*^9}, {3.560233280828125*^9, 
   3.560233281890625*^9}, {3.5602333185625*^9, 3.560233318625*^9}, {
   3.5602333821875*^9, 3.56023338346875*^9}, {3.56023347115625*^9, 
   3.56023351040625*^9}, {3.56023419171875*^9, 3.56023419234375*^9}, {
   3.56023718671875*^9, 3.560237186828125*^9}, {3.560237359234375*^9, 
   3.560237362125*^9}, {3.560238482265625*^9, 3.5602384969375*^9}, {
   3.5606704653125*^9, 3.560670525671875*^9}, 3.560670792265625*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"MG0", "[", 
    RowBox[{"Rhwhm_", ",", "Rrms_"}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"2", " ", "Pi", " ", "r", " ", 
      RowBox[{"Moff", "[", 
       RowBox[{"r", ",", 
        RowBox[{
         RowBox[{"RMEG", "[", 
          RowBox[{"1", ",", "0", ",", "0"}], "]"}], "Rhwhm"}], " ", ",", 
        "3.5"}], "]"}], " ", 
      RowBox[{"GProf", "[", 
       RowBox[{"r", ",", "Rrms"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", 
       RowBox[{"3", "Rrms"}]}], "}"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], "  "}]}]], "Input",
 CellChangeTimes->{{3.56079012565625*^9, 3.560790232390625*^9}, {
  3.560790275875*^9, 3.56079028334375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MG0", "[", 
  RowBox[{"1", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.56079024890625*^9, 3.56079029215625*^9}}],

Cell[BoxData["0.1472643964006758`"], "Output",
 CellChangeTimes->{{3.560790251421875*^9, 3.560790292828125*^9}, 
   3.561129758984375*^9, 3.561728221984375*^9, 3.56178978378125*^9, 
   3.561982538875*^9, 3.56204630234375*^9, 3.562068456875*^9, 
   3.5623515504375*^9, 3.5623546434375*^9, 3.562465837846756*^9, 
   3.562961652078125*^9, 3.56308663565625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", 
     RowBox[{"MG0", "[", 
      RowBox[{"1", ",", ".5"}], "]"}], 
     RowBox[{"MMEG2", "[", 
      RowBox[{"1", ",", "0", ",", "0.5"}], "]"}]}], "-", "1"}], ")"}], "/", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Pi", " ", 
     RowBox[{"MG0", "[", 
      RowBox[{"1", ",", ".5"}], "]"}], 
     RowBox[{"MMEG2", "[", 
      RowBox[{"1", ",", "0", ",", "0.5"}], "]"}]}], "-", "1"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.560789870109375*^9, 3.56078991496875*^9}, {
  3.560789992484375*^9, 3.560790024234375*^9}, {3.56079033546875*^9, 
  3.560790345625*^9}, {3.560790430625*^9, 3.560790461171875*^9}}],

Cell[BoxData["3.908656383171676`"], "Output",
 CellChangeTimes->{3.56079046328125*^9, 3.5611297590625*^9, 
  3.56172822203125*^9, 3.5617897838125*^9, 3.56198253890625*^9, 
  3.562046302359375*^9, 3.56206845690625*^9, 3.562351550453125*^9, 
  3.56235464346875*^9, 3.562465837878006*^9, 3.562961652125*^9, 
  3.563086635671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"MGProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"1", ",", "0", ",", "0.5"}], "]"}], "]"}], ",", 
       "3.908656383171676`"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", "Red", ",", "Blue", ",", "Green"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560670559953125*^9, 
   3.560670588140625*^9}, 3.560670671375*^9, {3.560681273796875*^9, 
   3.560681274328125*^9}, 3.5606903466875*^9, {3.560754381046875*^9, 
   3.56075442621875*^9}, {3.560758397015625*^9, 3.56075841209375*^9}, {
   3.560758885484375*^9, 3.5607589253125*^9}, 3.56076465121875*^9, {
   3.560788145390625*^9, 3.560788209359375*^9}, {3.560788247984375*^9, 
   3.56078825190625*^9}, 3.560788499203125*^9, {3.560788556328125*^9, 
   3.560788634234375*^9}, 3.560790040109375*^9, 3.56079036165625*^9, {
   3.560790398546875*^9, 3.560790410046875*^9}, 3.5607904741875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0ndczf8XB/Cke4XqKvqmJWmgjSQN560iEtpbe3yLIkndm5Zvg5b41hXt
qZ3buEnzflraSQMt+mpoKWlI4/f5/XEe5/H885zXS9j2tp4DMxMTUyk+/99a
DlPv6757ntvD7NTi/wkDFnW+O6O8BmD0pyrfD/ep5LiEEl57+NnQY+SD+5uA
aKCXuBu4tOQ0e+K+0jFQnMh7D1bsNbZdcYtGCGZuC5HBezxz0w73hpbdcxtx
P/AL68GMcU8H9TbYUANBJbjr2mXcxvar1c94gyBoLS1VEXeDOl95fUIINK7p
V4rhlhNRff1L6DEQIqbj9+FOYLbOEUsPh8Gc2+q/P2LAOvYwzUg8Cv5WnqON
4n77paej3iAaNPndJutx39Gx17KgPoVo7q3/MnEPy4aqR/LGwBfkf9IOd0zy
wTox81hgY0QEncOtRcpVqUmgwn+/vyby4KbPt5/+IfQCFp9midcPYHDL0rI4
1OYlXG09S43FfaTzh8zh9HjwdbXocMAdVcB1TFc8CbSY055t92NwQTAj47tT
MsgZLhxuwe3X9HIfwyAFLPtEvaJxyytIRZpSU+Gjd6rPQdwp3NdDwngzQDS/
cZK9DwOfjucNRm8zQO0U/5vGXgyMgr8wi5hnwmLYCV0f3GzL7v6VCVlg1CM0
MvoBA+/eGO9ZoRw4fIHmGNWDgX7EMP1NXQ4Yq5cFyOOW0RBfDrLJhZDyaPuP
7/E8S8rdBdPz4BLvzTBe3Lr/fna5Jl4I53Kl9QO7MJC6IpLD11wItaWOddy4
WXfempxwKoL19Ja1V50YWFVs0WoNXoMV77u2xg4MuI9Hy5hQaaDOWN2eaMMg
kLXk6GPeUphKK+qsbcZAQvPpo+I7pWCvenxaFHdP8O3vg82lkMZd6R7ahPdn
p1SezP0yYH9r06TRiEHTZoZMbw8dBFxeRKVg+L1L1NNCERVwlt4+PlSFQdkJ
T+ql/yogykB5+iBuyzv6q+5Kb8E0XtVarxKDojlSRcPUW5BYCk2rrsBAb+qR
isuFKljQvRDuSccgbpiiXrZVA3pSzFo3izA4L2CaMWJYC0vUh3F+hXhfzc4Q
WAtq4eCIrtWTAgwOzZLtCqTrIHORbpyTh8FtZwUxpqE6qDzUx1T7CgMu+6Ls
TEUMev+SSXNPxsDENLVoYbEBJCNmOlcjMPgxaLAnja8R+K/Zn+oOxyDEktVB
X70RjlDY7maFYVBid5uPHtMIRvVT/tqPMOBwUw32OdMEqRo/Z/z+waDx4Scz
om8zzJFOkH3JGJzM5yQKsLaC1/Sm/LgdBi0yjdYdcq3QN0ObINtiYE3zrvQz
bYWQjmNBbDYYRNJH73zNbYXnV1qDJC0xmKorGMy62gYBO9cKdEwwSOq7TDvx
bzuo2YZLKmpjsHc70ELzUBc05iibBZzE/+VsbCl1sQu4jCulhuTwvHqlrDnd
ukAmq2K/giwG53IG7Aaru+CyzCfhb5IYVORQy8pluoFPwUL3uBgGc/qzVVc6
u+GBsE+sCQ8GhtnP2zzYe4BjSJh6fZ0BYrrzU/XhvbDiwlP77i0D+Pw1lZxS
e+EZ96vSwDcM2FeQEr6nvBc+3ppPVqQzYJ1VX0Z3rBcCYvvNU2gM6K4r9xhR
7INWnRchxtkMoMgFbq2N9wHbUDvVIZYBnaQDB2TQAFzXnQJWNwZ4dZ6FuF+f
oL56YyaLlwE8pZwjO3aMQuV2jlKbcx3Qx9Tbu1TGoEbJ91j8sVrAXBL5TWe/
gaw25dQ9m2pYFlclFbhOwl3OTfbjaZXA/DtvH7/YNHhIKr/XKKwAhW1run7h
LGjfFDQ7018O7UHynU0SP+BpohUbbTcdhKJnfufML0BrrLpIulApzKyOjvTJ
/QT9GxsuOx2KIWO6spUjagmyJUJJai9fA4fgqx/fvv2C4/VYPvdYAUQ4lzmm
iK5A/OEfriXrubCC8r797b8K/B7kM8Ps2XDvZEPpX/VrMJu74i0SlgmjhQ3h
74XXQZXgY1PMlg5/XHrjj1P+gJX55+dq/SkgeX7XlmPlBox3Vp2LWkwEzTRh
JxrPFvgI78euXX8JXoJWR75abINU+Cy7sOZzkJo13DtwlQntjUuTNE+Kgf2k
BdaGdSa0vNaeKsvxDFhq44tEEnagz0uhS2FfnsBN+cpPu68wo5x7u7t1e8Mh
77JtSs0KMyqK1hyOMXkEyzN8+yaoO9GHP+lZHx4EQ5m+5s4YDRbEGFaaPNTw
EPwvBSeXTrAg7dijWlZhASA8rPUxPZiAmLhD7UHVF8Iw5SLDRwR0tFtEIVna
F36+kgrZFU5AaaWrCbsO+QJ2l0P+ZjQB1Rps8/zcegD2rD1PTsYTUEwRv4Y0
4wFknzLVZLwmIKJst7+i5gOQCXOijwwS0NqGvvY/pj5AvW0SGT1CQLFOzlxz
Wj6wbXDZXu0rAXGn+o5aqvhAt5AkV9YEAW3sdfA1E/IB97J5V9dFApI4vHSd
Nk6Bzy9HNYR+ERCzSGmf2QAF1AK6+d+vEJBlqTRia6EA15XiFvkNAnrKuFoc
kk+B0i+eYhtEIjrf+y7mkwcFBJocNwp2E9EfSnMLw4ECwXnGH6zYiCjetoJB
M6aA0f2zgfWcRCRn/PZ7tjIFaswlTDwPEJEv5x3O19IUED/PL3uUh4iMHR1n
aoQosLp3cyhMgIgmBbwzl3ZSwHpxrkRFiIji9mv58q6Q4V3/SNi8MBG96mhZ
uThFBrmqLpsUUSK6+niA/cFnMsSl1inqHSUizM+w5k07GZhCaSQWCSJ6N3qU
ZbOGDM630ibKpIhovl9+8BKNDD26/1Y7yRIRFx5XQjoZlM4ExfCeJCK9Z08N
u2zI0G/Lq5AoT0RHMu7eP2tIBo+owoHDZ4iIh/kwR+4lMuSPf+Q7pkJEGjYf
YpJkyXAoRjpV4SIRnSa9yOjd9Abmxf4CfTMiirS5vu4e7w1tucebIx8S0VdR
XjnzQS+wONT1e8cHIvKkRLAoud6H5dbIsTuBu1Dwo/n+yWQPiGOxvKcnyopI
SrdsS4zcYf9IWRpzAysy0ErkqK5yA4JvoMFZ992otetl3eMtF2DKsSwa49qD
/rq6FvnuhxPcfVkUyYXtQXuUN6qMdztAteQjVk63vUiBmac7MdIWOLXuSj3k
YENY7Cuf3cHWMCTd/YFcxYYoypc+t0ncgNdJIPrNkh2N7xpqUdsyhRtFCpyC
W+wo6+AOz9PnjCEgODVwKJcDxdDNqjYSDKBgSjCeQ5uEvjswLVz20ANdTg7F
5nUScvmV85nFVgfCCMz8Q7iTn9ASWmx0oOH38uYCbk6NDKso3Apjw/V8f0iI
9F1rigc3X0nBdTfcBHoCi6S1DowZXHXi3iChkIVrzrqWOnAvLoJqt0lCDk97
xpLMdKAgIoDsjXsSO43Z4Z4IuGcRibs4+p+0Y7hNnC2OlOOOWBxxKDbVAVUl
qcI9WyQkYB6z2miiA8ShtkYa7hv2KxfnjHQAumuzm3DHhuw4XYzbu6EkfBD3
G+KqiBfu6fx4XcI2CYlzprLswN3pe3PYBHfE14XuA4Y6sOuuVZ0rbqaQa02f
DHQAOeqnP8R90plalYS7+Jqycz5uzaFvecdwz6jJajNwW9nPZMzp64DoGRHZ
ftzp/ENJxbgtJXm4ZnBLbdFfeOF+LrR3eRu3IOuDWBXc/wMP+Vb0
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV0nk41XkbBnBO0UlyaBMlb0K2iCnSVPevMBVtJ0sUB9kGjS0JTVlCslVD
dmWtLMeSLWQ5vw692asTZZ2MaUxRZiJLxft9/3iu5/r8+dzPvfms50knhpCQ
UDyZ/29jp7HnTX9f2Hdu/geTG29oLDWQ9RqWMcNM2IEtccQ/3E1OL5dxxB89
oYVRxKMbFUMuKnvAKerLH2HEJh29DzNkfLHBJLP9V2LFGLm8RfkAsHquOvkQ
fzN2SLJXvoKqubxiJ+L3YQK+fWIIPt8Wf2BBfMpxpv43mTDMpjWwjYj5BrLV
T9IjYCfBL9Qm3r5lb+mU/HVICitXbSBOZ9jlK+VEY1fKR68lxMyR0GwL5Tgc
Wqk6MPaaRu3vLzqemN3Ex9y3M23EXiccja0Tb+HzIyV+EfGg1jWDWJkETEtE
e7gQJ9xd36R05jZmTrUf2U9szCrY05CeCEr9Tf964qqP7Ts/yadgaleWOK+X
xjkO5+E1+1R4CIcX3yJW6Pyk+Z+cNOh7hQvbEcdxV6mwle9gYrV+3XQPDSO5
3Ny/Xe4i54ycQj3xlZZUSZ5ZJtZ7Bu8OJd6hqxFrlZiFhefbg0WIM9cej4iS
yQU943d2UkDjUkcS36I2F/dTIyzziC3Cf2dsOZOHVEtxYUti8WnvoLr0eyib
Xu5W9ZKGvyDBf1w+H3llM3dPvaBhGjNY9agpH3b1fdvmn9PQNFSeDrMvgArT
0zOVeLS82lsupxA9QjYSgm4a7Pg+t2PKxdi5yqlJvYuGhsmWfNmnxZgxfDtZ
10nyXnLur3cuJbjhHNtzmNi2ZqGs0awUOs8O0ZwOGmtVb2paJpZBevmxzb+0
0Qhhlm+9LlOB3mVS2huf0lA7eCvyoVcFxPsa9S+10HgR7vl3/9MK1FzWvd3b
TPqzRKNQ068S88eHjCL5NFq+52oKXlTBoUEu+RmP3Ps5cad8TA2icneYt9fR
qNS+kHjojxqo205WCRFzvExnvHfXgjbJ89appVEywarhj9WCG/foc+wjGifH
Ive4GT2G+bKlekqVNJIHAw0qFxrwOKRe4RWXxv6NVrlD5o14W6BlMlxE+npa
T4TJbYTU2h2Cd4U0No0HOHC3NaHARkzsYz4NT1ddJaGBJhgavF49mEdjlWPJ
g7xdpLfBHRv2ZdCwtMoqmfyHD0lmgIJkFI1P/WZi2bLNyDOPNR+MpBHBYTqZ
GjTDv5Zx4sE1GuUOnrJVCc2wuXosQy+choTH3vBLei0YmT2R/2MwjebQN6dF
Lz+F6y3X5X0XaOgUSYluZLbik+I1LV9bGs80m+06trfikudbv682NOzK/Ouu
WLXi/AgnJdiaRmzVsNfbglbk6AX6hFnRGGvi9t872oYBNedIH1Mad14dLtOO
b8e4ac7w2E80ViyGWB/c1AVO4J1jBhokL9dTHI2fupD27cC6m2rkXwINOymP
Lti97h3tU6GxL7/Xob++Cy+Pt6a4KdGoyU+srNbsRl8HfdFnE40J0/HHJp3d
OJq+yFWUpGH+IKnt/MoXyA5mB67/lwcl9sexJ9ECbB4bTXIv5UE26OBulywB
korCDaWKeZDkZkaLVQsgpWI+WFHIwzzTVJM9IoBajsrr6Xs8dDdVnx/a9Qpm
j1xX22bwELg9ZGH2z1dQeqWT33Wdh07WmjWaVC+Yogd42vY8XOzUR/LUG9y3
3e4HMR6kK6SGhIWH4Rj1+ec48yZUjRi0d+0ZQT12Ltn/pQG0W8YGq/FRlK6X
dmtTrse08l4W95e/kLWxYF+UfR0Yc4WSG5Te41LEM0G4aw10F+2qTIvHYdm5
S2XuRjXaw3Z0tqh9Que75O+q/ErI3/wwl/9xEtWmPnEKg+X4MDM89Gr7vzja
0jmiuPUhct/XtUrEfcbQVYbt9NlSSMjd/zQ6OgVJrXLh+FAuYlwrnTMVv4Dz
z5/x9gUF+EIVjv4cNIN4Tw+ec+d9+OrwK9Y9mcXPoQH3ZU7nYbiYH/188zz6
ZqlfPcaz8dVNkKYa+BWdNoeH1vAzob5/2YJz3TeUUf8E+Y5m4GD2Zpcy6QU8
PTk///xUKi7K2Sq8tV6EksmdKRu7JGiMm6/oPSpExQW0S/fwE7CaNcnkzwtR
4/tfbHuE37C0Ma1kS7owZSzaJG+iehPuO+reLDdhUDdO3VuzjR2DwsNnMxu+
MCij2UAr6/5ITH+QlXyXuISy8KrVyhWOQKXpwSUJhkspoYKReNahqwg6FH63
4t1S6uz6yBbdFSHYPGj8OidchPLVNrdO2XkFu/XCEmR0RCn5mqb9kSGBsN7U
NSf8UpSqfSYire9/EdOtsSNeIcuooN3ltY4JvkheyvE9qcikzARCQdG6Plg9
VJnN4DOpWYuIrDtqXhC5HGKm772cGrKYSvT1OAehfE7JyCoxitUwETz5oyt8
UktiV9FilPa00JShtjPq1SOZUh4rqOa8WzU5CQ6QMvbRCJUQp2RLbw83e9pj
YFv3y4DH4pSYSeQF2f9yUHoHiqOcldT5qar3r93PwKZEV0puYSWl0ubXsyfE
EsHhWSEDBRLUgZSf0k5UmYM7JpcmcYRF6UpudM12NQVbSmLX03kW1d/8F9x1
2YgSYWwYIC4sZ2hpEPPnpr9PEutnrZOf2MmG7sjgE9mvLOqQuyrDk1i2nHvc
g5h7eP6lzw42RsyOuqz9xqIYOUb3AnXY8E2OSXT4zqLMXZxFojXZ4MYEB/gT
O3unrD5C/C7Y1zqW2G+Or7CS2NLVWqGaOPi8iOGNbWzs3a1RLLbAomoy1H+L
12BDdKCtuYzYhFpuk67GBrobH7QQixjRgTbE/vzy6H5i1rXzKZuI3xelsUUW
WVTjw4Y3mapsdF52H7Qk9tObccpTYWOZj23TL8Sqld7RzsSUs2lOKHH38dGy
rcQPj/3oWkRc2lYmXLCVjQ8HtI7wiAdyxdXdiRX1tmj1EPOjbM01iDnq0qs+
EDsGFARPKLORJL9iepG4/NxEUTHx/wA34GDc
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.14726439640067512`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560790478671875*^9, 3.5611297615*^9, 
  3.561728223203125*^9, 3.561789784921875*^9, 3.56198254*^9, 
  3.562046303515625*^9, 3.562068458015625*^9, 3.562351551546875*^9, 
  3.562354644640625*^9, 3.562465838924881*^9, 3.562961653203125*^9, 
  3.5630866368125*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdWw1UVEeWrvC6EZQ4OK4GR8I/2EH+/AkQo4JRoVcHRcXILKvRoCNGXZHp
TUgmrFkmI2YZBidqyCEYo+sMJsQwMXjAGNMmjEGjkb8QwFa7ESNqNKgYEdB9
27fue13d7avuJnuyZ87kpJ9N1f3uvXXr1r1161WnrNBlrVq/Qrcmc0VAcs6K
7Kw1mb8JSNqQY24SHiLkoSxCSEcAge+i+av0EM3/i2vgAS3Ov/+a/qMieh3B
/7RlxCiK82izmjVL/+n0IkmxhxAtKTOKC2izQERjGdHq9PQvd2sh5i7RSMq0
OqI3/5UqcTGWac0yjea/9KSszDjfmlRHdZFIXeYsK2IsK6N/w1+MrZ7oCNKl
2GBxJG70KUgaiZKOTkVRtpJm8yzitbLNJPFmRmabgQmlkQzhc14otel11Lg2
nAFdprcdmF5nxkn2ccB2vjSvzDZgDxSRIvWJRiM1O+1Dd7CzHw5KErPKYiTZ
jFSUZcgygvqWcZ7cDLqyZgfOMwq7JPfGUdPngv+f/uHwD3whGZRGETBcoe3h
fxC6vyddhqH7BBiNxkS9Xg996XXl5ars+uJit3d2PfMMEd6vWLToqD4hAT5E
BU834zsBAXaM1PzJ/3sa7z/KXGIMFeLr6upg3n5Z+9FHxA0mjXjmH8nLg5mD
T9VHc+fCjAHWsDckBCaus8LXl7h113t7E1XfMXd3czwh9NNKiDtdl1RUb5eH
ByUS4OlmNMKUNzdHRNj5wjtGcBJXfSFVoW2+i3SUnwDDJWr7QTa/HxFB0C/V
V46MHm0zMCMdE/BSDfSoVDAe+FxpGT0ax+V+8uTkyfK49hoyMmBQ2w1r16JJ
VQuv79+fKOr18NGIra2PKGj3Ew3aw3aBwue3e199Fdem6mTZ5MkwaPh0l5un
CcZL1GId3blYPjBSYjXU95sXLYIhwie/JS8PxucGgyNCAGQrWXj44MZ5B0OK
d3d3t6zr719/6SVQ9Uj+U0+Bkl1v+viI5Tgvd08PGULccF5uXXv4YdAPPocN
s2ahW6le6dq0STZ8vFhXN5Mv/Hv6HCkLTy8vL3+zZPXqiu1paYbtISFUcCUh
A7Uq6gTA5vatYcNAYMuV8HCQ92bX6tXpYnm5LE2aJMnxQFoXbRjh09XVBULy
SvPzYXStWzSazjJfXxiZtYCuLh8fQ2dISEVnWhowTxUrK4G5t9jdTdL5Y+mg
z5/JYrYWb9ggG1AsIQSc+36fm5usf3WXVlvWmZkp607ZL+ezP4thBYLHqj2l
pbKJBrapVDLr7m5vb9ksWWJJCbD1EHt7yWo+21b69Iqpr6+X2VKNzVa/e2nI
kHv9giAbQzdQWCizXM/n2MQcSltdXb37jWXLQFEwc6/Rw0PmCEqCaanv/obP
7jR9DoW19Nyfd+z4uGj27GulI0fCjAGk41s/P1AOzAirPJfP6Uv69IQJWvre
nj3A6ebO4cP7Wtzd+35wd2+6GBlZdDUnhy6pPHsnqsOFnVpZWfnBawsWXC0a
NQrMDqMBYP71vLwYsb7+P/nia5EDiAdLHy+Ii7u3RxB6uz08zl8ODCy9tmoV
iP49n8NR5ACmyN+Zl9f5qq9vbzVa9PiluLhV/aWlPmJX1xY+hyP0OUTmcLFw
7FgY/s3rw4dXfJeWBvNB/sCHf4xwGALEM5hWGb73akYGGIAU8+E19Om++MB7
7x0viYvrP6VWQwiB6QPo63zkQUSC3uBPP+weOhTsdvR8QgKs+R32s/UR0m/Y
t3Vr+x/DwvrPqtXgKM/ffO01WGclfEl/RSR4b1FpTs6dfZ6ePd95eX347bx5
4F6lfOQHTMeakuRk8I5rV0eO3HBj61ZYMWV85PsYo2E/0LQzMnKgU6VqOB8d
ndR36BDZhTBpjyFXm6wyY5WcUr/5b4E2qLHiEi0fqoCVYFj0sHs4cDYlhS7J
3ZJgNa3XiFSOyJWYgKtSsQ++2xW0gsKo9z0oHGICjYP/bREOjCyqm4UBU0HK
aUp9bijJpu5Vkv4XB9L/bJGOo1OWrtTnZpHHSmFKrwZ+exAZ1dHY2LpPo+m7
7u5ukVn+o0csjc7G/G4KI5akw+I9WpmQAGtiX+uSJTRBvPujJ1uhhlYy9zso
3KO3t3fP/qVL+y+q1UdPJyRAuCIVknCVvQvjrsWD4/WWNpWCPFw2qryP8/Nh
x9LeEhYWdbOxcT9/Ee5EBEzOhapHH712ZuTIudeqqir5CFzRQkVVWlrfOXf3
bV+vW0c+5JNj6FAtadi3r+ekl1fTqchI/7sm0wH72PUm0nn3dnfX1cTH3z4z
bNhKw1tvVfE5lzDOd9o8PWvqkpNhVg/yEW9gW40+ORn4zzl38CCp5pNvRwEz
L37ySU+zl1edPj4eBNTwEduwraw2MxNUWtn81ltS9lAk/xMK8L9hMl1qGDPG
UBsS8siNy5cP8xFbsW2JyTxmk6dnwdHcXCm7WZkSc5FQ3pCefrtp2LCphtpa
8imfZxFq8cjdy5fPNgUHf/PXxx4Dh9XzEZgrBXCUHoOX184Dzz5LPuOTF2Lb
H9s3bgQXWHD6gw/I53zy/8K2Qy1JSeCS/pdNJmkXoUi+RXIcczg51x4UdOIv
sbGg/t/4iAJsG3e3rQ38/e13V6wgX9gbcTMSzeo5fBjGmHOwqEjaDSnyxP2L
8OKlzZthjLNOHj5MjvPJX8U2iINXq0aNGmdqayMn+OS/w7aqC3PnQmkMaVra
1xHiZR8/rIKFYoqUI6f1eZtS8MJNnQpc/uOLs2c3lERHg2FPuhA0lfvcXBT8
ChP8VcfEiV+9PnEiCD5lEczPB+4KfXo4mpT3A9aHuyLykwcKHgSbWtghg7yv
LPL4+dBTsc/uqBdDPM2FL+NwQVRrl0ZTvUWrJfUujMtTsQ+Nyw5/lVICbulp
rQwl3of/MW8eaXBhCj25mxzrc2AliS8ziVDxQUVIGiWJnGQn2Pivqw76WwVB
TfxF9BIjh0psZ745ajXzyV/ENsjVZ68GB1fo0tLI13zyXNuZpXZusQ8qLygQ
fcPn+TxzzMbrUVGfbpwxAxzTAeLf2dJp7dZoZEQrH6FjiE9vzJjRmq3RAKLN
GUKo6ElLO/u74GDYWZF2PjkWuUJxb3Z2xxt+fprW1lZyhk+eg21QdcPpHxT+
xGBvx41ItFzctavjiJ8flKfSSYEiz2xs04rV1ZDhdNsKC8k5PvkGbIPizHTJ
33+bzrzDOc8n/zfmV2euhYZWZqWmEiOffD0zeNPtyMimpZGRYHCnCKG6V6tt
fz4sDEotYuKTr8O2wgGdrv3tsDB6CNlhb8G1SATnB4aTISFZJSUl5AKf53PY
BlUnrB1qkk4+Ob5gVIFJWm6Gh3/6K3RDB4gsZpXTdydMaFsybhxkuYtS3Bh0
kpNzjeVFJSdYoVzhvXuLF5te8Pen3vmtC+GRUwNCm/TaTArYSoELD6aEbLG4
uOVQePjyXbt2kUsWofwsMFSxT6GNFV8rURQcsXx9Yfz40vWrVkkng44T21DF
PlbforG1yjWu9FoQQueZ26GhxxZOmQLT3/Wjh2j9xlB6x6gkdyVzok/6Z840
rAwJgcVy2YX59HBW06u58oRiMTsbTjBoGLoiCRtUppPfF1u12QjKZKu14Zvo
6IJc87b/Kn8xPYttcHJj6AkJ+Sxp+nTyHZ98BTObYSAkpGVOeDgEdWsEBSCd
sEtcvhxOkWlgucZnu5wF6fr6mJhXNm3aRK7zyZ9RUPp7PvkyqzB6LzKyNVWj
gbl2iqDqw5aSzlY3n3wptsHhIBxLlWRlZZEbfPJ/ZSGvtVejaZqGYd0aQQEZ
TO/P7k+ffmZpaCgEnZt8zhnMy6C4odHiFp/8X9iKb/4uIqIy1ZyOevjkv0J9
YI8Bk2+YiuWFU4RQLqant+SHh1M3uM0nT2ducKIlNrY4Ozub/MAnX6JsR2sE
BSCdADasz46JofuEO3y2T2NbrlhQUFs7dSp1xl4++WJsgy1Ac09ExInpsbHk
Lp88jU1q4/2oqHNzgoLAGZ0ihAIxN/d4ZVwczb99Uuj4uX3okFCODz2tr7I4
iJGLsA0yOewQq7XmCqSfOA+QDhKe1CYFSiWhC20XK9gHIgyTO+iEYDlptD1/
ozkvVWHBDFhEDbqYk77jJkJU3EUsYGsONurUqPf+b4OTZpqWd8ozmcqMeuZe
aOjZmbgXZ3IHPZlW9ZZkCb5coUTMyvpi9xNPUPPel4Rysp6nY2+VdkxKwuYr
WPZ/+MtqnrJNnCJsRyPaB5sUBS0o0UN8xr9UVsU1mII+bnzMXJ56Ah8zx4F6
TmEK6qn4mH9m6tV3x8ToExMTEWP9fp5CtMpx9AFiOwFahWBKexxcI0tmcRBK
FKbUED4myVY92HNA7nYNRtXT1yQm5hYUFKAoDz5mNrZBAoItdF18fDxiPPmY
WUy9E/djY6GGsqhnDaMoJBZeETdtgpskNCFSyqF8AXilQQVKQekKWRFys2sw
AUwG1S68dEdRw/iYp7DNJl/THi8p0oywjzQSVDlJyiHGHqMUzGfgKGEjCjuQ
xtioKMsoZenKwRW5ganZrUvKlRuIlSQLdWJ8fPPKiAi6p6E9D1vEKuULnlgH
r81sxCZiG5Sjf/vyySdpdUF7hlvEKiVGnlhugqXJeRpaF/Z35/qCgmysO/wn
HWYCtunFxMSW58LDmXV/9pNO6nRsg5spx0/HxTHrektiH8iZ2PDArVr7Iw2e
/zqysDd/xU3jmWcEHzOVN7af8zFPonpwOHCxf+xYG/WsYRSFxEK1qNXCySRT
aiRfwBRsg4LjVNOkSUypf+JjnmBKgc3kqsM1mIJ6o/iYeJ56o/mYOAfqOYUJ
h+4nJTU+HxXF1HvE3s6xTClLrU4pffjcH2dKGXsDAk7OmjzZopRTGFUKbMay
wRg+ZjJTD14gswz6Cz5mEraBeqY7/v6gHmLGOsVAUQmHR/Q00BlmIrZB9Dx9
dMKE7OLiYsT42ht5AlLanHBQykf53GPQyJDTT/VPmgQ53bJNcwqzPZmiPX58
TDS2wTYNznhpoU57/BEzyMs4csp1chlHGiB9fWt27a9njh9v8SJZsKPAbPsb
B4yRD/yyRCkuR2HbgXspKec3BgayuQ6wSOVnIVup7BjP8e2bSObGbV+MG8f2
qYEWkfxEqyxS+cqNdBkWUsDFW2PHHlickoKCggY9NrnN2T2b8cxRj/VNmWJa
4u8P50h2UgeTYJV+p6Jk1fHM1+FqHj2Poj3BklhOgpUlWhKslTs7zrCSeeFo
EN4nsSUfwl9dj7HFf/5GYCCbklA+RsNsCjtRqDcsa8MpTNjft3DhmTw8XkRR
YfYRaRyLXWcPBAezMDGOzx2Z0MLpXEdQUOHLOh1iNHwMKkvfe0Lkq0uXq5nH
nGLqeuPjIRbTOw/OMGh/YdvAunXgCizhhfMx6CV0D3O+JjCQ2WA8H4MObftC
kfZE2Fs4kE07vEt848U1a5Ayks89gFkLXOXQr5OSEBPFx/gzV6nrjo+HI1GL
qziFCQdup6TA6y9m5Gg+BlOIsKX3hRfgpjp9HUl7YvgYTFXCi3c2b4a3uizp
T+BjMH8KcL8X7sgwzER7I49llPA6GO5fI+UkPvdf8DCT+RjcoQjP/bBjB2jE
MI/zMbgTEuCmdFe1jw8bBW65iPSTmcFmVVfv0kg//9h9fdkyW8PHSeJdz62u
XssYxVwR7mebiv39LYc48Rap/PyjJraZAGO0ows8uAWmO1FYZHDH3JJ7nrBI
5KdWD6JU3Fnd4GEXeLAYEqbd+vzz700jRuwtzMhAez7pwsiU9iq2P99UyjZY
FAlwSR+uIWZVyruGqYOeQpuLujTvKYvEMpFuytrPhYXBLw+i2xoaaOc0Saqr
ZaurboNVuJDzbVERXG189+2nn8ZhJvAXF64d1eO3vvyy0+Dr+33NiBFzT1VV
0c5EPgzPndT+d00muI4Ld4K3V6xdCwETRc7gY/EgTQ3XaqHkhVvrcK+YRU7r
3/1QKJ4MqgsacnPhlue9C4JQU5mcTO81UsRsvjQ01JCpnbW1cKkUrmrcv+nm
dunomDFw95NpnGzNYyjwkH8j1nHMzw9+QgbdoC3cMi07nJkZdqW9nULnWEPV
1tDXj61fT39VRunm89Wkz8H85pZ2DwZFHvpfPK+g+Q==\
\>"]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"MEProf", "[", 
   RowBox[{"r_", ",", "Rhwhm_", ",", "Ref_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Moff", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"r", "^", "2"}], "+", 
         RowBox[{"rt", "^", "2"}], "-", 
         RowBox[{"2", " ", "r", " ", "rt", " ", 
          RowBox[{"Cos", "[", "th", "]"}]}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"RMEG", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], "Rhwhm"}], " ", ",", 
       "3.5"}], "]"}], "2", "  ", "rt", " ", 
     RowBox[{"EProf", "[", 
      RowBox[{"rt", ",", "Ref"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"th", ",", "0", ",", " ", "Pi"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"rt", ",", "0", ",", 
      RowBox[{"5", "Ref"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{
  3.56023260703125*^9, {3.56023299115625*^9, 3.5602330049375*^9}, {
   3.560233058515625*^9, 3.5602332281875*^9}, {3.560233280828125*^9, 
   3.560233281890625*^9}, {3.5602333185625*^9, 3.560233318625*^9}, {
   3.5602333821875*^9, 3.56023338346875*^9}, {3.56023347115625*^9, 
   3.56023351040625*^9}, {3.56023419171875*^9, 3.56023419234375*^9}, {
   3.56023718671875*^9, 3.560237186828125*^9}, {3.560237359234375*^9, 
   3.560237362125*^9}, {3.560238482265625*^9, 3.5602384969375*^9}, {
   3.5606704653125*^9, 3.560670525671875*^9}, 3.560670792265625*^9, {
   3.5607588274375*^9, 3.560758867703125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ME0", "[", 
   RowBox[{"Rhwhm_", ",", "Ref_"}], "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"Moff", "[", 
      RowBox[{"r", ",", 
       RowBox[{
        RowBox[{"RMEG", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], "Rhwhm"}], " ", ",", 
       "3.5"}], "]"}], " ", 
     RowBox[{"EProf", "[", 
      RowBox[{"r", ",", "Ref"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"5", "Ref"}]}], "}"}], ",", 
    RowBox[{"AccuracyGoal", "\[Rule]", "3"}]}], "]"}], "  "}]], "Input",
 CellChangeTimes->{{3.560789072078125*^9, 3.56078907321875*^9}, {
  3.560789329140625*^9, 3.560789338359375*^9}, {3.560789373515625*^9, 
  3.56078941871875*^9}, {3.560789464140625*^9, 3.560789504109375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ME0", "[", 
  RowBox[{"1", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.5607895474375*^9, 3.56078955*^9}}],

Cell[BoxData["0.13190094262475932`"], "Output",
 CellChangeTimes->{3.560789550984375*^9, 3.56112976165625*^9, 
  3.561728223296875*^9, 3.561789785015625*^9, 3.5619825400625*^9, 
  3.562046303578125*^9, 3.56206845809375*^9, 3.56235155159375*^9, 
  3.562354644734375*^9, 3.562465838971756*^9, 3.56296165325*^9, 
  3.563086636875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MEProf", "[", 
  RowBox[{"0", ",", "1", ",", ".5"}], "]"}]], "Input",
 CellChangeTimes->{{3.560789573171875*^9, 3.56078957390625*^9}}],

Cell[BoxData["0.131903244412931`"], "Output",
 CellChangeTimes->{3.560789575640625*^9, 3.56112976171875*^9, 
  3.56172822334375*^9, 3.561789785046875*^9, 3.56198254009375*^9, 
  3.56204630359375*^9, 3.562068458125*^9, 3.56235155159375*^9, 
  3.56235464478125*^9, 3.562465839003006*^9, 3.56296165328125*^9, 
  3.563086637078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", 
     RowBox[{"ME0", "[", 
      RowBox[{"1", ",", ".5"}], "]"}], 
     RowBox[{"MMEG2", "[", 
      RowBox[{"1", ",", "0.5", ",", "0"}], "]"}]}], "-", "1"}], ")"}], "/", 
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{"Pi", " ", 
     RowBox[{"ME0", "[", 
      RowBox[{"1", ",", ".5"}], "]"}], 
     RowBox[{"MMEG2", "[", 
      RowBox[{"1", ",", "0.5", ",", "0"}], "]"}]}], "-", "1"}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.560789870109375*^9, 3.56078991496875*^9}, {
  3.560789992484375*^9, 3.560790024234375*^9}, {3.56079033546875*^9, 
  3.560790345625*^9}}],

Cell[BoxData["4.074645205109686`"], "Output",
 CellChangeTimes->{
  3.560789917765625*^9, {3.560789999578125*^9, 3.560790025765625*^9}, 
   3.56079035090625*^9, 3.561129761796875*^9, 3.561728223375*^9, 
   3.56178978509375*^9, 3.561982540125*^9, 3.562046303609375*^9, 
   3.56206845815625*^9, 3.562351551625*^9, 3.562354644828125*^9, 
   3.562465839018631*^9, 3.562961653328125*^9, 3.563086637109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"MEProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"1", ",", "0.5", ",", "0"}], "]"}], "]"}], ",", 
       "4.074645205109686`"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", "Red", ",", "Blue", ",", "Green"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560670559953125*^9, 
   3.560670588140625*^9}, 3.560670671375*^9, {3.560681273796875*^9, 
   3.560681274328125*^9}, 3.5606903466875*^9, {3.560754381046875*^9, 
   3.56075442621875*^9}, {3.560758397015625*^9, 3.56075841209375*^9}, {
   3.560758885484375*^9, 3.5607589253125*^9}, 3.56076465121875*^9, {
   3.560788145390625*^9, 3.560788209359375*^9}, {3.560788247984375*^9, 
   3.56078825190625*^9}, 3.560788499203125*^9, {3.560788556328125*^9, 
   3.560788634234375*^9}, 3.560790040109375*^9, 3.56079036165625*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV03k81NsbB3D54k6SQauxJUuqSSpL+3NcRUgxJAoRcqlEKVtludaxXEVD
jOxlZF+zNd+yTFTIkkSUK1ukhVyy/M7vj/N6Xu8/nuf1Op/nHPnzVxiO/Hx8
fEX4/L8aOI6+IceuH35ZfJutPkiCgA7NbUDSDN6mVZXswd6TksAukXQAZc7t
OTXsIWnFAE9lV1g/9PIyHdvwdXdxsqQHjG7LFFPGVoyUyVqW8wZSQnhQBnvB
wD7eTvk2cCb5Btdgjwd11tuxAiC8OVKMgn3aYbb2rmQQyFwvvjz/iYR6HVpF
HTsEBG54zo1jqykcKpyWC4csicGSHmw2vy1HKSMCkNEcuxGbMhiYbq4cDW1D
9aVF2FUf21/XmcWA7Cmj34nYbsYOBlasO/DwbZJbIPaHnaE6UZJx8O5ByYgh
dlzKRlLp7D14Lxg7tgPbgJpz8CmbBRVPHWii2OVfX2lMyd0H+YA1K5s+knDJ
xqY41C4RPP8R4WVgb26ZUt2UkQRKcztLb2JH50momCg/gHg+Temt2EdlMjPH
nFJgc8j++IUBEm43Joo9M0sFX8087RZsdU16lCUrDbQXVZQuYaeuOxnClMyE
kshylbv9JPi+jq83r8oEdq69/Gls8+CP/Apns8CvZ6sBDVtkxt2vmv0Qeqoc
6EkfSPDqjPOakOPAIrquGdpHgmnkh/InJAdWHm8sPoStekR5JsguB4AubPuj
F++zpMJdJuMx7Nvz2cgc2yT2vcsJ5XzQzrzkQ3lPAt1QgUPj5YN1UEdAYQ/O
m7g0MuxUAJNVGtXm2Ocql4q4ZoWQBLfrk9+RsG5rjKoFqwj03utqrO8mIYBS
siVcshRUGcYlhR0kbNO7E1bsVgreOZGCu7Hbg6+M9fJKIWBd34Gidvx+CPpj
1RtlwC3nnOK8IaFxMVO1s70cktO+HvFvxff9ydKQi6wEc5u2403NJJTtus46
9m8lDL4SW1bBtnEznXXfXwUPqXn3Q5pIKJikVtaPVoFT4o7wAy9IYIyGHXQ5
WgMGwjOWkQ0kJHzw0SlbegrT1kvCzVwStKUtM/tPcUG2QNmZgj1+RkuQkscF
7wuTpUeekiA74W2ft4MEO+sX6ytqSLjirKnEh3PlowuL/l1JgoRDQXbW3uew
MjNs05NiEiws0wq+fa+HyDfKZfczSJjqNRNOpzVAavW/Lx6lkxBiQ3E01WkA
5om3kqVpJJTYX6GVxzUALWPcg5dCgqjroWBfrUZYHuuh9SSR0BDYc0boFg8u
+57zz44lYXeuuJA0pRkWV3dy5gNIaFJtsH2t1gym3bO73viTYFvkVX3bshlC
lUUEH/qREFU+4PYppxnQ2FiUwS0SRsm83odGL8Hy91stPy8SHnTpF+2KfQX1
aTcs411JWLUcYKUn2wrb3KutQixxXs6nbei6rZBzzGeTqgXeVyfdVty1FfbZ
t5zsNCfhMKfbvre2FS6mH/spZUZCJYdVVqHaBgtsBauEEyRMmk7UGLa0gbMa
na6rQ8Kp7PiX11a3Q1S+Srz3dhKUTL6O1kV0wtKd1EzuVy7Q/PT2O6V1wslo
kWH+L1wQy0uNEK7ohGS7o7w/R7gwTzFVNRnsBN3vOVeeDHChjay41r+3CxS+
XwjxbeOCj1rA0n+fu2C0/Q46X8SFFurataqoG2INC1/WunHBs2UfJEz3QM+j
82PU4aewoVS8f8WKAfjt2SkaWF8L5YM6r1oPDgL17TPd7/Y18NwlWcpyYgji
Rm5bLkxWwYzyIWre5RGI+Mxx2+BTCfxzj8WklMYh6VBH0J53FaC5bFtumj8B
LMNNaKNhObwKUm9p3DYFS6HJoZSGUpCL+TLH+foNhNzEUO7mEvgyO9DfpfYD
vkavrvPMKoLM8epm0eifwDrEOhm8vhBEZR5NDQ1NQ1mC6D0X7TyIdC67kKr4
C56oe7Tdzc2BX+jx0F9+s5DAEwycFM4Gj931pevr/oOVefLzf5NZMJBfH/FG
fh7E2sYOK3tkwG+XzqStPr/h7V3/lzN2abBd+4+lC9UL8IhXmVOzLwX00uWd
ijYswRHW/amUqiTwlDm3+ZPVMhT0tivOPksA+sSpVd1GfGhE/NCYnTwL1lC/
Uern+ZD61FTU2phYEOAmFSiwVyCP4Wvvqp3vwEX16p6VhvxIcXFaajw7Gh7r
n099+osfbRrw1ygVigB1uvxhmONHV2Vo0z/mmPBU9GMv9zc/soFoR61JJrR1
WG94xkcgM5UgizcdTLAsly7TJgj09UJDlzKPCYMJvYznggSa9bJdDKhi4n9t
GV0nTKDFs1t09NOYcAttpB9ZTaA1r9dZl8UxQUihu6meSiBvxr8bt4QxIUaQ
5XRUgkARB656PPBlguSomWDjWgKdOZx1WeoKE9Kb12TobiDQ2N2uteOt4UDP
a0c8SQJt4ardLasLh7J/7vTrSRMo1N0vKqQiHA5fNb75QpZAx+TyBKwfhwPP
jErTlyfQj8ysmb0p4WCs1VLRpECgbN1TNrTYcDi/YPizWYVASr8ioyd9wiE0
RM/l9W4C3Qs+o9ZlEA5tiYct2nUJtI6Sm/PoSxhY3lqcYegTqK52Qvb9QBgM
nquJ7TAk0HjtxzHxzjCYVtzf2mlMoMv6hb53asJAskBDt/sMgdxEsk61RYXB
+Tq6ep8rgYx/UmiGu8Jg5gtNbJhFIGvHzFLlm6EQlzzCY98nUGVNjAbVLRT2
nCz1M2UT6N0et6JF+1BwLzaaItMIVOTS98+EYShMevm3JOUSqPaeRaq4dCh8
FhyONHlOIPaFv3pu1IZAl1zRytpJAgkb8CTZAiFQZqpHxB0RQMsxpU68jCDw
OxacUjosgHiyo/P5+oEg/8HgXUawIDITsV+3dNAf9msFxUnuFkJSpheZHcyb
YCXbOreiQwgRiYEKTkbeMNMcNegW8AeK0bZpXlS/AQkCNh4MRQr6lDxxUDDn
GqzpL0vnr6cgdsFiXf51dxC8FWC2z30lMh2pcbArcwU+jk3BoIQwOrIlvTkJ
XYSriQVREs+FkcPRo8XELyeo3R5GEXddhU6k7lAR2OwI4gZX6YGiIojvvckC
s/U89O1o6/CuEUFhWjfbzRNsofABKA7ZrEYmFo4GxlHWYF2gKS6ztBpF8xdI
uzqeAf/gtIC+HFHk0mRb62x7GvJGZZJEj1MR7w0x6jVkBibiont581S0b9Y6
mxPEAKYgv1Qf9q2NqhmO2PVzM4vfsI+rrk6Rx9Yc/FBH+01FXUr/3b//NwNo
JXknXbHtX/izwwMZMGhm5LRuAffPW3Q6+zPAIyGSZb+I51OFqNtvMiAv0t/b
C3sFPXf7iC8Dhv09rKKwowts9TOwLZytNldgn+uZDpXCPrSfni+8REXPDzSJ
i/gwQKjvZUMR9jcrWYtJTwZAGze7ETugIzuYg+1VXxLRi01z0S51xB7PTTIR
XKaiws/stf03GNBy6+IHC+ysxIVPLdcZ8MfVc+Rl7Mx7sxsisNEF04xAbOMo
vpN62MUnDjjnYs/bHiS5Hgz48ufO48+wFdWvzPtiK2op7HyLffxHgcZebJvt
GyS+YAvGL7lPX2NAvNyqmWXsCZmzBYXY/wMj00rU
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV0ns81fcfB3AJnY5cu8094WzDlH4lWnp9m4xI4hzGyGVUkxLNFrXcHnRz
mUWHcnKJyiXO3HPrfItDO4RcUnO3MzvLKdaiSdjn98f78X48/3y/Xm/9b065
HpGVkZFJI/P/7XBE8pT+6/s9j/eFOelP0JCz0Qwd1eBg48mDAZuI/5eTyavU
CISn5VyBDrFY2zD2DCsEA4+C1DWIHZ8MVNzUCIfnZHGJOrFhks7tZb1IbN7V
GMok/uAQkOHPioJUPc9fhvhlfF+LPzcWb+IOR70dp/FV4LumqxrxkHjOtU4S
t9ho1jbzLkBqGPb5APFWA+tf3updRrpZ36CQmCfrV2SUn4jeKFZhBTFjIu6W
OysFjMFTuTeJ68d6njRzUvGP8H7LBeLQQ4EO3tyfcT2auT6EeHjLRZtkjXRM
q/1ttZM4Pecj2sjrGgx0eMoaxA4qxbsf8LjQ9f5RZX6MRs3rjh3Tetfx44Iq
t5L4hI9PxUX/G2g4M66VQry5c9psU34W/H31Oo8Sp5Sqf+LCykZbm8F9dWJb
nYKCv47lwP7Ampk/RmlEtd5QfcjJBc/mDqeWeLuFabInNw+f8XcVcIhz1ztf
uKJRgK4mA9/IERrnnmS0uNcXQPCme8ma2D1hTNbA6zbCmIPtMsRrZsOiG3h3
8MO1oNcxwzQi+tIjpHpFYLHYHsFDNNhJwzX36SL85i48ok9sto81G+9fjMuS
kLz+QdJnZW2YTn4J9A7/nm9J7JL22/GDrDJ8K3r+XPKChqmjQZFmWxkaNl3y
SiVmrDzx5+QxPtItI5QsiH3rlsoFnF+gbF26fO45jfWfppp5cMshdrum/+YZ
jVhG5ceXNapQa7sh+mIvDWO7ny9VhFbB0lZJnUHck3Dqr8G2KojeiBMu9JD/
WWlaYvZDNbY/NFU7/5RG62KBWV9PDTLvqzcd6iL3/sPdoZdUh0dGOrevimhU
m3/Ptf+9Ds3rlI78/SsNn1D2u7Bd9bCHMfMgMf+VSl2LpB7bJvXlVzym4Sq5
tPu4bSP2ZlW1OglpZA6ftaleeoDd8ooP4wQ09mp7Foy4CdBmqv1e8ID869c7
5RmlArTP5+ksNNHQlUYGlH5Go9wi2ii4kcapIAsjGZKrduvoF9vqaKgH8gtv
Wz4Cr9GdebiChodnHn/m7xZ8eHar7ON8GtODHOYtTSGmnBZdt9+iccGHcYRt
I8TZ18/MkUejMuCUZk26EFeiMnKdc2goh1gnnNvZinf2AU5eWTSEcS++Vjjf
BtdXatBNo7HtnpqCNkOEYMen591iafxqJvR7slUEv9wcyjiGhl95REOUpwj2
srWOi1E0kmtGQ8eLRZAvu7M7+0caErp08I5TOzyM57jtZ2hk9+8vN0/rwLcn
+m/0naShuBzrbafbBYOD7SfyPUheQV/5mH7ZBe+sBf39X5G++kz91EK6oLDD
jnrlRmNP0UDAYFMXCj63rd/KplFXxK2uNeuGxXRyRYETjVdsaaNjZzf2sO6a
7P2ChlthRvt3Sj1gVwk3HDKmYeTyWtKc2Af++E+hHVMCaEbb7TqW1webyfGZ
1RIBVEtzE5m1fXAWlyjuEwvwnsE2c5now80n2Fg2JEA3XfvdiGU/bvzWW+X5
RICzW2OX/v2jH6xr8rGqZQJ0qqxbZ0YN4G5qhxvjpABnOq2Q+fYFFp7KOseP
P8DGKrWRFStGYZxSObLzQRNqJmw6unZPYLQiYi7JqxGPjt/U8pSK8eeVy9G6
Y/WYZVmrlJ78E+bbfthRF1QH2fkSVS2jlxCtk/7qIqyFxbJfDbtMCkVvfxNT
ixp0xG/vbDWexrnFBlFUWRX0Uqfmi17PIMZ2Y80fzEpMvRsd6d/6Bs8PZWxa
m1yOgpcNIuWUf6DgazJj8IEPZZ2702LxW6iKh7Vz1UqRFFR9NNdwDloXhF4D
UcWYo0rE30a/Q68o3jl47C7Ct7VUbWj+F6xC1bH267cxWtaS+FT/PUrSuiXm
rvlYON6X9enZBSjEvY4wss2Dyd5VS0cbPoAyflFlwsyB3S39Y+Ubl3BFc4OV
LjcLZ3R8N497L2NwywZxZ3EmTKVuigNOMpTugQ6DVWu5WKsyw2h5L0OZPw6e
a7+SBjlBFt+At4IylNRrOZ34GcHbG16sdpSl3LLbrMKbUlCy/5vcB3OyVD9/
oi3pk0TMTmmqTnJXUj5HNyhFml1CNdtuZfo+OaonP3hFo3MCou0Tcqom5ahC
p6vzx6fjoD/s8Dw/QZ6S5b/73W0oBrt2xqdrbFOgNnlaWMo0nIe3btf8il4F
6qeiHKO4U2cxK0qeCI1dRdWKGLcD7c4gU84n3NWQQWVZ+RpHloZj7Uj1LdkW
BtXca6r49fHTkD8fy7EKW03dsLra64ZQyBT58CfUmVRdh5z8fukJnL7BT1Z/
xKSK88f3bI8LQpPJJYZaiCI15pp+mJV6FGoOp03jlNdQUgfHLu7mQAx91t0b
2biGKrbv/tSiyx+/ZMNQ7KNEdUaWT7x67IvDfAs1nSUl0uLVXL/T3ohJyIsd
KlamegL+tedZe6JUopOlfECFur82w280wx0uasqWbe9VKG/G0o42JQ6uyMtq
DRFHB2e7RhG3zM8uzhAbG3qG7iC2mBhu1lxQoRLjdfj5azjQrCx1DiF2jR+3
ilHkYILjdGz9BxUq97prvNVqDsIzk7gBiypUirROek+Og9KkmMgI4i4/nmkg
8WRMuHcysRYv86QWsUeQ9+ZaYm33kTeXV3Jgvcu0jLmkQpl7ZTOPyXKgMNQu
LCc2EEpD9GU4QLegsJW4OD2Ifr7MRkRLZeIg8UfiZfVU4pf3slzkl1Uo8UxE
w9ISG53ng4c9iLtteRpDi2ysOu1LnyT+OFP8XRoxdZSdH0fc8+WXXQ7EFQc/
D7pHfPGu2+W6D2xMfbHlwEPinEMrJaHEhjsNtjwjdtonsvuE2Mdko/oU8eao
4sLRBTYy9BRnl4nvzOczM4j/A8G7bI4=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.13190324441293053`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5607885009375*^9, {3.56078856209375*^9, 3.56078863696875*^9}, 
   3.5607900448125*^9, 3.56079036528125*^9, 3.561129763984375*^9, 
   3.561728224546875*^9, 3.5617897861875*^9, 3.561982541171875*^9, 
   3.562046304703125*^9, 3.562068459234375*^9, 3.5623515526875*^9, 
   3.562354645984375*^9, 3.562465840049881*^9, 3.562961654375*^9, 
   3.563086638203125*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdWwtck0e2/+QLGFAeRhBQRLBcpNYXraJ2WXVlV7m1PKy2YLlLl6WuWN+W
q+2t+EB3tZcWbItlr6KVlgrVKqL0p7TYyGYVkBZESxERA/IIiGkAH5Fim5sz
50smid8k6L27v93tr/kkM+c//znnzJwzM98kIiE5aemqhOTliQl+89cnrE1a
nvi637w16/VF/CCOG5TEcVyzHwd/6/R/Cg+d/n/dcnhAie2//0D+kXDyZA7/
C8/mlDpdJCm2p8XCf8lyHRdhCeHCuWylbiEp5jmdMpsLT5aTbw6mJPoqnZLL
Dk/m5Ppv0UIryuxwPadS/03OZWcro0xFk0lfBNEBt2zoiDI7m3yHb7RZOZfM
oVyEGRY1sSNPXuiRTuijTSrSrNCzSCN9uMFmAr2+Ib3NwISCJoPZLb8glMmT
iXHNWgZ0ttxcMXmyHifYx0qzUYJfqW3AHkgRIdTplEpidlKHw8HCfqiUQLPU
aCSDGQmVUWUDgowtZaShGPpKi60MHg+sEoY3ak2eC/8+9S7wD/zBxREZUYCL
SJnzv4jcP1JfxOQccbTMKCsrmyOXy+HzwrmjR9dWZ2SA3GC2m//RNfvn9ZrE
tMxNo9Hw4BaONzjm4EevvMLZkac0Py8m5qx89uy6/KAg5UE/P4DCv51nRoy4
XTl0qEQfQfQxWVdH0hv56NuHJ9+ndnDQVLu5ETYrjo4WKYsaoNxYVGhKdXW1
YXhFFhcW8qTz9if2R0RAZw2fm7keHhz22OHn+4MGGXoMH0NveaXST5+46+qC
gkDv/LqYGI4/qNQ3x6fWpqS82rBv3xwdWAufQbq6OmNvHER6aP+3UXzEw/Mq
e19iIuj92YGXXuJBXZ5oKnnQy/MGLX/qs7NDDe0vXZs4EfQyfNJa9VlKglpJ
dVqtkWrUo2lFnpiWHb1UKpWhe7t2btwI3StMj4xsyAwIgB5qM6RSzg4dcr99
8GBDN1tafHygl/WNgYHE+IK13XQajZHoGXYf+slzmGFYrM3IyPhz1rJlZ1Ln
zgVqzW79qCzQ+/ycg0P/bQkZr1qtVEoo2wIDj7QsXgysW7VbtnB2SO0HmdfQ
/mw29R2kBtrYvLy83Rlr1ig2hYYCrXaXVAq0MG8MtCqVl1dt5/jxQLlbs2ZN
tK6gAAiJpgtMaAiLmhS4+SmVSiB4Y+fOnWDOul1BQbffGTpUd4rjempdXACk
0bi5Xe6aMAEa3qXduNG04UXs7qswThgct3XLli1gNWDQbdVbqUwq1ar0auhB
YKlTqvDwd26//nq47tSpGbqysjh2yzcwKkHfowsKCmA4VGwICYF+awuk0rvN
Tk4ABWNAq1t1W7ZAf4ndE9jNNpLnUKlWqzWYBOzd+0dn57vFTk53O52cwLU1
6kmToKOxurw8mLPL2C3Wk+cQMAF4MG9rbGzzZl/fB3t5/naD3sh6YTDs+3dW
rQKjkg6uZDdXS55OoPfvPvroo8LNkZGqrV5eoLNWI5WqNF5eherIyCRdVtYU
XXX1OnZLNdgSRGywYO5bcXHQEqjZd9fBoVnt65uniY0FFb10KtV/sluqwukJ
0SNtU3Jy/YbAwPsHBg/ubXV2vtU7fDi0AqqRQfim5SC8gGCwONgnf01MTM8G
FxdNmZtbf79EUqqeNQuUIZExhd2HMvKUgjZJWVlZJSvCwrRbpdIfmoYN677n
6ppzNz4eRtU2dgt/pS2AZUkL+immUbm5tfaOGpXWn5wMFt3BbuEv5DkYfHNi
VUREb4qzc3e7qyugYfwRFXay4WcxCAd21tcXnVywACaHukcm+6B/5UqA/jcb
+TVG0bVlGRnXz/r7/9RpZ1dZOXVqrCovj3uXDfuKEhacjo7+8Zq9vabOzS2r
PCkJQnaGpauKkSbmYn6+gaaqPDg4rLWkhHufTXMKYVlnk5IgVt1rcnQ0UHCZ
bFgRwqB3p+Xz5z+4wfPXy/39IWVyWWzYCYSFtigUDYqAgAc3eb5MPmPGtJsX
LnD/w4YdN4f1t0gk2YrERDetfszuY8OOkafEEnYAEcIKybB7pjtNujMVq9d/
50mBPe4gdcYP4RY4J3XW1NSWjh9v4DwocNqTrScn7KwMm0oeZ7toHfxtsTfn
RXQ9jLye9zs6YC0DvIdKlyz52MgLbRg7rOeB9rAh8To7JDHbvRN5e2gvD+kO
n3vxRRiZQAne+MRIh5qI04nV2RkJ6A5eTE+BeFvV5s0/ttrb15yZNAls/elj
6ymQmNnbToQYGSQxTfn5kBo6znt6hl0rKcl7bMeKbP3FFP6EOhbm851LQ4a8
Wrlv32cCr8RykOJyTcoY18YyiQgVDhbJu5fWr9cqpVIIOxD5D7Nn2EFhhnUp
FJ21I0a0fjlqVGiDQvE5G4GTTwLxpejSggV9jQ4OqWdSUo6xEfsREXarpKSn
0cXlmyPPPANpoMAyAGYjNu9ibOy9i46OS/+ydy9XyG52LzY7rffChZvXPDy+
P/7kk57dHR0n2AgMUPyB+oQEbZ1Uur1o0yYhDoqKYxiUQHpubvT1bfxs7Ngx
HU1NX7ARH2LZC+qjR+9cHTJk76dLlwrxWVR8D5Z92vzyy3crnJwWfFNUxJ1m
i39A+wNr7sa9Y8eCHYvZCEwb/JIfDh2CJRtsOoS0ZGL291AouyUxseeci8vz
ipMnuRJ2mxnU/5UtU6fCzgBWX2fYiHREwNqrrXnkSMU7oaEwKr9mIzCr8s/f
Pnmy+7qr63sHVq8W8reo+DtY9tatHTvUFTJZXFFuLlfKFk/DssK2yMiuI+7u
ITUVFcLiQlT8bapwefv06d998NRTYHaFpR13oRysw2C1Xb5z+nRQ86/slnG1
QnYrHe2ensfeXriQO88W/xOWhfRVVKibZbK3P9ywQViYiYr/EcsW3fn8c3W9
TPbap3v2cOVscVx58Wu6d+8GI8LOnKtgi2/HsuSutLSbRR4esHsTFpscN9Qy
pJnEL9G8bAjhpoeWYqE0lZKqTnl5wVKQqxRIrcVv8Tq7AbJuE2H9xsjKTkkO
InVyONnF5YfE7GxcJ+TlzUgG20sj2bdGMnZSdhStszgm58SSxhbKCJOZMFYN
QD1H0To0MD1CF2PcLMJYPQA3OjLXV6an6WKMuLXhM7tWrDAyXhQYGQmYNxvA
Ax2hm6hqLdk+PoSohj2L3qKRq61w5Egifokt/l90jsKkI+KX2eK4G+Rfu7tn
D4wlMke/swxbb9Aw0aUQomEtu82NWBbZV1jYXu7tTcLE92zxDVg2r6+4uKPK
05OI17HFcRtMDupuXR0+/PdH9+/nrrDFk7EMMiJkFhIR69nir2OZIUIf2bF4
MXeVLb4eyyDwn++YObNy09SpXINNcTgfuLb9iScg9puJE+l15uMDMid3jd3m
WupBcHhQnX6P28gWX0Od01Xp7k5Oiq+zxVeLWFvJFl9Fzdfe4e394dvLl3NN
bPGV1HxVHcHBcNDDNdsUz1HHxzdljBkDKdZMnEivQKF199LTIXWTCXCD3eZr
dPSBPeaVFhdzLWxxfJNL8nFXi7v7ugPp6VwrWzyJKtjS5eMDZ09cm01xRVdo
aNW24GAyPqyI46EXn9KbmgpH4WSktAsh65ETrCHVGd80M+LkH6jB1DUyGRlA
KoH0MXa+UCa89xRyhVjMXErN3t7k7Z2yNzWV6zCSshOQk2idSBnd9f6eugzO
Lr9M+c1vuE4jFTu7OonW0V09GjtcfGf/KpbBQV3LDh8f4vjOx9bP9H2v8IZY
jDRRJHLcHIAnpbbOMOxFyASzwqFy12V39xdPHD7MdQlkj5ReDa/6TcrMiBJE
QtAt9hxKoFPu8qYJE8g3K+K/E5lyarb4K1RreBlFossPlhErnvYYXh/AKwZO
w24zXqTHVsR/K9Ljbrb4f4j0uIctHifS916b4mZ9tyL+MpZBLNfkubmRvt9m
iy/BMkhWsCckY+yOpbVj6fy+3uHvTzL8XXabgjjknNa0UaPIzLQiHoNlkF5h
p0zm1D22+EtYBquTm60eHiSuaW2KQ648v23mTPLNiviLIq6/zxZfTM0Hp1/E
9X2W5ltEzQfTa++7S5dyP7LbFMRzb8bFQcom5rMiLtzEgeQCJ9XEfP1s8YV0
9Kk7ZTJivgc2xeF1FLwAI9+siAvvaZM0WVk/nB42jJjvJyFkySxDloCyfq5s
evvJSmCOoqMCXuGQw4qfBeLHTLFCmRCgrZDWqYKCTu0KDyffKOkjpyDjEa/5
wSdJsc8jVao6JUWdI5ORQaEzUj3yBlb4G9csOtFFSwQd2nDqNquitBQZB/3f
NBR8TXaz4r58ns4XOJGD19bIbPf4DjXZYAoGscKc0xYfD+eA1MoGZkbadbQ+
bIXFmhjjApHZS2p49iR7jtoHXvS9lbtjh+mVA2sYs3lsC/PvWBZ3Jze3t8TZ
mUxmUmN69YFAwunsg5eXSQVZWShp5Y6cgLnUOnHil+/qF4zGHlnBzMcy2NjD
RoXsZkiNlbs187AM1sFwWktCNKmR2sQ0t/n65nwYH0/7ZgWDGvB/Vi1bBntQ
OnYc2ZhfY9msvtJS8P7kKxcvIsaJjQmj3of896ecN99EzBBLrwiScCJbnx4Y
SLUYwm59LpbBGTEcnlOfD2VjfoVlkFJ62lxcqPedbWLKr0+ffjZr9mzaNyuY
OVgGJ4bqQpmMet+FjZlNvQ8JmhzDkxpXm5iHvW+KIZBZKAmH/HAARn3uxm79
lyyfD2NjQqnP4eV88pG0NMTIbGLONM+d++37Tz9NtbCC+QWWmaVvUjOcjXmW
zn2YX9TC7ojhUK+B5n1DsLTEiKUogbqhJSDgSObixVRFA7V4ohBuZnGmF48J
lJlUzGlxEcm/1756dVvOyJHU6x5GWrHsx6JlZlGS+ENYw2WEkUwsw7PI2CsF
cx2n0zkNb0XoiPP8/9VRnFbREBqqyA4NpR6ltH8Lj4awIouXQPtQ3seCh26V
W54IsUbuNCwbd//KFZg0dHHlzZ5oU2kQaGnw8cnIX7sWMSNtYk5ci4i4tH/i
RGpPKxi8VEhet0IKoMYYZYIhkKfp1IfgCpdnUdKH3Xow1UJZ5+eXeWTFCsSM
tol5WAsrmClYtqI1M7P7a1dXOkl92ZjJ1Cv3rjg6Trt64QJixrAxk6g+sIFe
UZKZiRg/m5iK2pCQ4kPz5lF9rGBQaz69ft06eKdBMf6WXsEjAn7BraIiiBjw
ch0lx7JbfwrLxtxvaoLbkwurjh1DzBNszHiqOVxySPlSv5MkNQE2MZcvT5jw
+ZFFi6gWVjBPYtnx76OiLuZNnkwx/8bG4AKXXFduP+vtTb0fyMaMwzK4gAbn
EHDrATHjLC2MjfCTempqYGtEx0kQu3XsLA/3VeC+WnxFTg5inmRjAqiFb3w3
enR64bp1iBlvE9PQEBCQ+0lcHLWWFQw6ma+unjLleEFUFMU8xcaMZY1hHH6P
eo3MkPZtXCMTenq8Oiqq+viUKZR1osBqLT+Y/9QIQ/VDP/ASSw9+LNZJRlZ2
MjRnpUeyYtfHMJ7xH3y3cuWNotGjKdFkIxE72YsT2bo4huGQh8tNzWd8felM
mfLIuhnKbF0ZG03NaU4ZPAAniq0tHv6tmJimPuZepLRPC7SMJG9gNCZ5k4Fs
PcsLPxs4V/Pss+bjxsq9fW86569f9Pc/c3juXMRMY2NwlcKP6W5qgvdLWaeT
khATwsbggor/7dWPP4bLrXANFzHTTTAEggtN/lDFkiU937q4wEU2lJzBbh0X
4OR2XkNlQEBt8fjxcA+SVM5kw3CbwcNlQrjQl/1VYiJS/YKNwe0FuUgkL5sz
B3DPNX7xBakMZcNwhyZZW5eRAblefnrOHBgRpPKXbJjw8yG42Qcv6uHGd3Rd
QQGpnM2G4e5ZAhd6r5wfN66/QSLZWf7GG6TyV2wYHgNIwEmGm7o5X8fHk8ow
Sz/hGYgDcBScjY6GK4TEiIrERKNmv2Zz4ZQZDINoU+X27QpFaCgMDLjCXHU2
OBhsir6Yb9qGE7QB11zh03zO1xfegEA/f+4eNAjeDpd8FRYGl68J9DlTqIMp
9P1zq1bBD6/gUjIRjWT3lDz/Tr+u5Ab9L+HJsoQ=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}], ",", 
     RowBox[{"MEProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", 
     RowBox[{"MGProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"1", ",", "0.5", ",", "0.5"}], "]"}], "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{"1", ",", ".5", ",", ".5"}], "]"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", "Red", ",", "Blue", ",", "Green"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560670559953125*^9, 
   3.560670588140625*^9}, 3.560670671375*^9, {3.560681273796875*^9, 
   3.560681274328125*^9}, 3.5606903466875*^9, {3.560754381046875*^9, 
   3.56075442621875*^9}, {3.560758397015625*^9, 3.56075841209375*^9}, {
   3.560758885484375*^9, 3.5607589253125*^9}, 3.56076465121875*^9, {
   3.560788145390625*^9, 3.560788209359375*^9}, {3.560788247984375*^9, 
   3.56078825190625*^9}, 3.560788499203125*^9, {3.560788556328125*^9, 
   3.560788634234375*^9}, 3.560790040109375*^9, 3.56079036165625*^9, {
   3.560791900359375*^9, 3.560791926390625*^9}, {3.560791964875*^9, 
   3.56079197965625*^9}, {3.560792617828125*^9, 3.560792632765625*^9}, 
   3.5609614331875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk41fkXB3BL6Ua50chce7Y2SZL6aXl/B1F0M9wrKqNriYlJtrL0K/Sz
JJdJdCmEYibKei2VSSb3fpuUpbpIRBk/ZCm/Sorw+8wf5znP6znnec45z3NW
eh53OiIjJSWVRuKfbHdk+GnD2xM7xf4W09/20VhgpRbYx+Ki+KuH3QzxptzM
bCHLG6oKUxafiQc09GPCDAOQkfbt8TixfXNnZQ4rFD5nwmbfEOvzNQvntSNw
oDSg9RnxNzuvDA/DMxiZHfmhgXgkViLyEMSAhSluMbGL99S9i6xYBG/LY6QS
i6zUahuz4/FF+MktlNhEb0f5J+1EyHssdOISZ8vwigyuJ8Htw8CQCTGj/+y1
/YYp6FK8oSVPfPf1s+ZG7gUkco987mPTCPzR285NkIpY183HK4lfbUiwSmal
g/EgwppNnJ77fYPBoUto0FuTr0JsxyzeXp8tQPc2j9yXe2nUvHuy+b32ZaRo
TUUfJP7F3b0yweMKNmbmeqsQ67a8N9a5noUhA5+RJ/Y0UkqUVzsaXoW1/5ee
jcS7NAsK3vrmYmeUll2fHY0z9JVlf3LzEHdY9WAisZm5UfIBQT4cRPZez/fQ
yFNxiD/PKsAIu0oHu2mcas4Q7b9bgDS4Fj+1pbE/7rWM3qFCXN0leMEjXjIZ
FFWX/RvMLN/qnbChES5JDx/TLkJXV/rpE9Y0OPxXNbcbilBbWLhp3IqGsbXh
ZKxHMawi0i94EA8Ia4M0r9+E3jIORVnScEx76bfPsBQmluXR7aBhZK9XpPaw
FHqz8ydNiRmyvwwN+pYhsHJ8BX8njcN35iruc8tRXbTKefMOGiprLhi7CioQ
KlzZcdiCRgxDuCqRVYXNfh27VcxorLVNPVcZWIWPHUHCtZtoPIs7/rb7YRUq
6r+32G5K/kfW6KbxyWq0rVe5yjGhQc8WGEue1aC5Y8NzjhG596Ngszb/Dtqc
byZf0aNRvfGEYPffd6Bg3iwfrEvDPZAzFWRxFya6rmW7VtIoG2feEQ3fhU7K
y6A3WjSchs9t99v1B2ysIj+OsGhkvoq0qp6rR7Zs7Q0bJo0fNA4U9Drfx/TF
EOk3S8m/HtyykFFyH89VYn8NW0JDayzCq2R9Aw5ZhjhcXkzj+FFzA6meBvDi
JRFlsjSUvctuFG59gHc+UodWTYnheiC/bOJ/ItyaaHu9t1uM991c+WtqYqx4
ShX82iVGvDvjCMdKDGVH6a2tnWIIvY6r1aSLsXPHOYm1RAzFgB1xp7bQmDPN
mlvcLIb4bNdBudMPoTHzt+zsPTFMbynJaTCaYJ0gn56cI8YjYzGv2aQJFwv8
Tv2SJQavIrzuzIEmzFz6uH/3ZTGSa/oC3xQ3ITTg5/efyZzhhpLu39iPYaud
+tcGvhhX2/dUbEx7gt+Pp5grRYqhMB/jZqvVitsuNobZHDEyj7q4G9m0wtL/
duFqRzH0JUY8pYBWXI/U4FXuI3sXdXp13yN126VJ9/aIcadIUF1r3IY0NY2+
Sogxzhn7w76lDZJ6z3K1dWI438h4HLL0Gaqk9tcNz4tg4PhuuDFJgvWfsp3b
8kVQi7K18M2XgPVVcCzkqgjLSvKS5GslWOtiWbk8S4RpBsfYsV+C4YjeR/bp
IrQ11Ib0bm3HRFaT/5V4ESJNYua+/LcdH3Sc7IV+IrQwv/vOmOqEdkTntn4T
EcJa/oXMT13wLfdyKK1uhGqVUq+0dB9kotY7qt9+gJp+qyet2/vxQLvRQvH8
n3jgl6N+YGwAq8RxNvIODZg03MEsOTaEKy/OGvdT9ZD5enOZusEI7iZuOtN5
qw7m87waTukYqpNWODmz7+BJrFkLvfY95H6cdvRRqIX2hdGvRe8mwEhttOdV
VWF0qq+33eQDipXb2iMKK1EwUtekmPIRzsLRFn5qORQ1f38/MPAJufs0XDs8
S8A/Wu2Tp/8ZLm94u9s3FOMzdXPg56gp2Cm9WKIu/ztCTUVVKxq/wKkguHfe
uwB9paKkpyun8STxWqNQko8ZP0nWmsgZ6DpZLpKY5mLdD4vmfOq+wZNfXmkY
kwXbayt9K1TnsOpw3dtDUxkI0zys+8ZtHv/JXu28k3kJRmPOCp1sKYrrujnX
KekiljMnGKJpKWqwN+k3nuEFLLifVaaXLU2t3TL4odiLD3+zuq7F9jKUuard
ZWb5Odzc45lX/1mG0qlN8BxNiMPkqNqyQYEs1WB2XqVu8iyqObay6dYLqMLM
NQqaCdGI2h2XWzW4gAqJdLr0K+s0Vr6ye3E9biHV+OX7kWPCCFhsiU1nmcpR
nmXGzaxTJ+Gm1fpV+rkcpfyuZ4FWTwgmm5L7A2MWURkGBd45HkHIXOAe6qTP
oJS5kSPMuwFY3lt9TUbEoLiP0j5+ovyx8HQM919Biym95+VDJpO+kCpyL+tX
lqdyILLZb30EwVfKkpUfyFOuksYZ9VpP3Ft3jqEUoEBp9OpK1yTwoGQXbHRW
cQn1wia4cyjyJ/Ssb3se8ccSSlnnEa9O6SDKr0J/wH0pFVQffcRjlwt+KjNX
0pxbSvHH7cfkX3ARHZcf01OsSJny1E9uinNCybBmluJeJvVTSrOOQ9aPcFRS
3PpwmknlWNUblPPZOL9QRr3nHz/rXm5LLPo6OTtB7Mm6JNubxIZ5/6tGtRkm
tUz4ckiBWE1Y4hBAbOZa0eibyEY/l+2r8o1JuZ2I/0s7no3QTL7Aa5ZJjbnn
yaVGsVHCj44IJw64vWr1auLB6FC3ZOIVE3vs759hw/Wom24tcU2vu2D8NBs7
LIxK5eeYlNTMI9j9mw25nsfiCuLenbl9shFsoO3+DZqYsfepWlY4G+EiYVI3
cXVTjosp8citLMeF80wqXVqugxfGRstp/1euxCoZyoP3TrCxKPhwwzHi2GBV
Y2diyodz/SyxaWJN2FgoG5X7th29RWzFbmSqE49abtj7J7H8uIl7ZQgb+lv0
NnQQz93aWrqH2H2dqvLoP/3xL+dfB7ORoa0wOU+sFbyCE078f1J0TPk=
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV03k81NsbB3D54k6SQauxJUuqSSpL+3NcRUgxJAoRcqlEKVtludaxXEVD
jOxlZF+zNd+yTFTIkkSUK1ukhVyy/M7vj/N6Xu8/nuf1Op/nHPnzVxiO/Hx8
fEX4/L8aOI6+IceuH35ZfJutPkiCgA7NbUDSDN6mVZXswd6TksAukXQAZc7t
OTXsIWnFAE9lV1g/9PIyHdvwdXdxsqQHjG7LFFPGVoyUyVqW8wZSQnhQBnvB
wD7eTvk2cCb5Btdgjwd11tuxAiC8OVKMgn3aYbb2rmQQyFwvvjz/iYR6HVpF
HTsEBG54zo1jqykcKpyWC4csicGSHmw2vy1HKSMCkNEcuxGbMhiYbq4cDW1D
9aVF2FUf21/XmcWA7Cmj34nYbsYOBlasO/DwbZJbIPaHnaE6UZJx8O5ByYgh
dlzKRlLp7D14Lxg7tgPbgJpz8CmbBRVPHWii2OVfX2lMyd0H+YA1K5s+knDJ
xqY41C4RPP8R4WVgb26ZUt2UkQRKcztLb2JH50momCg/gHg+Temt2EdlMjPH
nFJgc8j++IUBEm43Joo9M0sFX8087RZsdU16lCUrDbQXVZQuYaeuOxnClMyE
kshylbv9JPi+jq83r8oEdq69/Gls8+CP/Apns8CvZ6sBDVtkxt2vmv0Qeqoc
6EkfSPDqjPOakOPAIrquGdpHgmnkh/InJAdWHm8sPoStekR5JsguB4AubPuj
F++zpMJdJuMx7Nvz2cgc2yT2vcsJ5XzQzrzkQ3lPAt1QgUPj5YN1UEdAYQ/O
m7g0MuxUAJNVGtXm2Ocql4q4ZoWQBLfrk9+RsG5rjKoFqwj03utqrO8mIYBS
siVcshRUGcYlhR0kbNO7E1bsVgreOZGCu7Hbg6+M9fJKIWBd34Gidvx+CPpj
1RtlwC3nnOK8IaFxMVO1s70cktO+HvFvxff9ydKQi6wEc5u2403NJJTtus46
9m8lDL4SW1bBtnEznXXfXwUPqXn3Q5pIKJikVtaPVoFT4o7wAy9IYIyGHXQ5
WgMGwjOWkQ0kJHzw0SlbegrT1kvCzVwStKUtM/tPcUG2QNmZgj1+RkuQkscF
7wuTpUeekiA74W2ft4MEO+sX6ytqSLjirKnEh3PlowuL/l1JgoRDQXbW3uew
MjNs05NiEiws0wq+fa+HyDfKZfczSJjqNRNOpzVAavW/Lx6lkxBiQ3E01WkA
5om3kqVpJJTYX6GVxzUALWPcg5dCgqjroWBfrUZYHuuh9SSR0BDYc0boFg8u
+57zz44lYXeuuJA0pRkWV3dy5gNIaFJtsH2t1gym3bO73viTYFvkVX3bshlC
lUUEH/qREFU+4PYppxnQ2FiUwS0SRsm83odGL8Hy91stPy8SHnTpF+2KfQX1
aTcs411JWLUcYKUn2wrb3KutQixxXs6nbei6rZBzzGeTqgXeVyfdVty1FfbZ
t5zsNCfhMKfbvre2FS6mH/spZUZCJYdVVqHaBgtsBauEEyRMmk7UGLa0gbMa
na6rQ8Kp7PiX11a3Q1S+Srz3dhKUTL6O1kV0wtKd1EzuVy7Q/PT2O6V1wslo
kWH+L1wQy0uNEK7ohGS7o7w/R7gwTzFVNRnsBN3vOVeeDHChjay41r+3CxS+
XwjxbeOCj1rA0n+fu2C0/Q46X8SFFurataqoG2INC1/WunHBs2UfJEz3QM+j
82PU4aewoVS8f8WKAfjt2SkaWF8L5YM6r1oPDgL17TPd7/Y18NwlWcpyYgji
Rm5bLkxWwYzyIWre5RGI+Mxx2+BTCfxzj8WklMYh6VBH0J53FaC5bFtumj8B
LMNNaKNhObwKUm9p3DYFS6HJoZSGUpCL+TLH+foNhNzEUO7mEvgyO9DfpfYD
vkavrvPMKoLM8epm0eifwDrEOhm8vhBEZR5NDQ1NQ1mC6D0X7TyIdC67kKr4
C56oe7Tdzc2BX+jx0F9+s5DAEwycFM4Gj931pevr/oOVefLzf5NZMJBfH/FG
fh7E2sYOK3tkwG+XzqStPr/h7V3/lzN2abBd+4+lC9UL8IhXmVOzLwX00uWd
ijYswRHW/amUqiTwlDm3+ZPVMhT0tivOPksA+sSpVd1GfGhE/NCYnTwL1lC/
Uern+ZD61FTU2phYEOAmFSiwVyCP4Wvvqp3vwEX16p6VhvxIcXFaajw7Gh7r
n099+osfbRrw1ygVigB1uvxhmONHV2Vo0z/mmPBU9GMv9zc/soFoR61JJrR1
WG94xkcgM5UgizcdTLAsly7TJgj09UJDlzKPCYMJvYznggSa9bJdDKhi4n9t
GV0nTKDFs1t09NOYcAttpB9ZTaA1r9dZl8UxQUihu6meSiBvxr8bt4QxIUaQ
5XRUgkARB656PPBlguSomWDjWgKdOZx1WeoKE9Kb12TobiDQ2N2uteOt4UDP
a0c8SQJt4ardLasLh7J/7vTrSRMo1N0vKqQiHA5fNb75QpZAx+TyBKwfhwPP
jErTlyfQj8ysmb0p4WCs1VLRpECgbN1TNrTYcDi/YPizWYVASr8ioyd9wiE0
RM/l9W4C3Qs+o9ZlEA5tiYct2nUJtI6Sm/PoSxhY3lqcYegTqK52Qvb9QBgM
nquJ7TAk0HjtxzHxzjCYVtzf2mlMoMv6hb53asJAskBDt/sMgdxEsk61RYXB
+Tq6ep8rgYx/UmiGu8Jg5gtNbJhFIGvHzFLlm6EQlzzCY98nUGVNjAbVLRT2
nCz1M2UT6N0et6JF+1BwLzaaItMIVOTS98+EYShMevm3JOUSqPaeRaq4dCh8
FhyONHlOIPaFv3pu1IZAl1zRytpJAgkb8CTZAiFQZqpHxB0RQMsxpU68jCDw
OxacUjosgHiyo/P5+oEg/8HgXUawIDITsV+3dNAf9msFxUnuFkJSpheZHcyb
YCXbOreiQwgRiYEKTkbeMNMcNegW8AeK0bZpXlS/AQkCNh4MRQr6lDxxUDDn
GqzpL0vnr6cgdsFiXf51dxC8FWC2z30lMh2pcbArcwU+jk3BoIQwOrIlvTkJ
XYSriQVREs+FkcPRo8XELyeo3R5GEXddhU6k7lAR2OwI4gZX6YGiIojvvckC
s/U89O1o6/CuEUFhWjfbzRNsofABKA7ZrEYmFo4GxlHWYF2gKS6ztBpF8xdI
uzqeAf/gtIC+HFHk0mRb62x7GvJGZZJEj1MR7w0x6jVkBibiont581S0b9Y6
mxPEAKYgv1Qf9q2NqhmO2PVzM4vfsI+rrk6Rx9Yc/FBH+01FXUr/3b//NwNo
JXknXbHtX/izwwMZMGhm5LRuAffPW3Q6+zPAIyGSZb+I51OFqNtvMiAv0t/b
C3sFPXf7iC8Dhv09rKKwowts9TOwLZytNldgn+uZDpXCPrSfni+8REXPDzSJ
i/gwQKjvZUMR9jcrWYtJTwZAGze7ETugIzuYg+1VXxLRi01z0S51xB7PTTIR
XKaiws/stf03GNBy6+IHC+ysxIVPLdcZ8MfVc+Rl7Mx7sxsisNEF04xAbOMo
vpN62MUnDjjnYs/bHiS5Hgz48ufO48+wFdWvzPtiK2op7HyLffxHgcZebJvt
GyS+YAvGL7lPX2NAvNyqmWXsCZmzBYXY/wMj00rU
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV0ndczf8XB/Cke4XqKvqmJWmgjSQN560iEtpbe3yLIkndm5Zvg5b41hXt
qZ3buEnzflraSQMt+mpoKWlI4/f5/XEe5/H885zXS9j2tp4DMxMTUyk+/99a
DlPv6757ntvD7NTi/wkDFnW+O6O8BmD0pyrfD/ep5LiEEl57+NnQY+SD+5uA
aKCXuBu4tOQ0e+K+0jFQnMh7D1bsNbZdcYtGCGZuC5HBezxz0w73hpbdcxtx
P/AL68GMcU8H9TbYUANBJbjr2mXcxvar1c94gyBoLS1VEXeDOl95fUIINK7p
V4rhlhNRff1L6DEQIqbj9+FOYLbOEUsPh8Gc2+q/P2LAOvYwzUg8Cv5WnqON
4n77paej3iAaNPndJutx39Gx17KgPoVo7q3/MnEPy4aqR/LGwBfkf9IOd0zy
wTox81hgY0QEncOtRcpVqUmgwn+/vyby4KbPt5/+IfQCFp9midcPYHDL0rI4
1OYlXG09S43FfaTzh8zh9HjwdbXocMAdVcB1TFc8CbSY055t92NwQTAj47tT
MsgZLhxuwe3X9HIfwyAFLPtEvaJxyytIRZpSU+Gjd6rPQdwp3NdDwngzQDS/
cZK9DwOfjucNRm8zQO0U/5vGXgyMgr8wi5hnwmLYCV0f3GzL7v6VCVlg1CM0
MvoBA+/eGO9ZoRw4fIHmGNWDgX7EMP1NXQ4Yq5cFyOOW0RBfDrLJhZDyaPuP
7/E8S8rdBdPz4BLvzTBe3Lr/fna5Jl4I53Kl9QO7MJC6IpLD11wItaWOddy4
WXfempxwKoL19Ja1V50YWFVs0WoNXoMV77u2xg4MuI9Hy5hQaaDOWN2eaMMg
kLXk6GPeUphKK+qsbcZAQvPpo+I7pWCvenxaFHdP8O3vg82lkMZd6R7ahPdn
p1SezP0yYH9r06TRiEHTZoZMbw8dBFxeRKVg+L1L1NNCERVwlt4+PlSFQdkJ
T+ql/yogykB5+iBuyzv6q+5Kb8E0XtVarxKDojlSRcPUW5BYCk2rrsBAb+qR
isuFKljQvRDuSccgbpiiXrZVA3pSzFo3izA4L2CaMWJYC0vUh3F+hXhfzc4Q
WAtq4eCIrtWTAgwOzZLtCqTrIHORbpyTh8FtZwUxpqE6qDzUx1T7CgMu+6Ls
TEUMev+SSXNPxsDENLVoYbEBJCNmOlcjMPgxaLAnja8R+K/Zn+oOxyDEktVB
X70RjlDY7maFYVBid5uPHtMIRvVT/tqPMOBwUw32OdMEqRo/Z/z+waDx4Scz
om8zzJFOkH3JGJzM5yQKsLaC1/Sm/LgdBi0yjdYdcq3QN0ObINtiYE3zrvQz
bYWQjmNBbDYYRNJH73zNbYXnV1qDJC0xmKorGMy62gYBO9cKdEwwSOq7TDvx
bzuo2YZLKmpjsHc70ELzUBc05iibBZzE/+VsbCl1sQu4jCulhuTwvHqlrDnd
ukAmq2K/giwG53IG7Aaru+CyzCfhb5IYVORQy8pluoFPwUL3uBgGc/qzVVc6
u+GBsE+sCQ8GhtnP2zzYe4BjSJh6fZ0BYrrzU/XhvbDiwlP77i0D+Pw1lZxS
e+EZ96vSwDcM2FeQEr6nvBc+3ppPVqQzYJ1VX0Z3rBcCYvvNU2gM6K4r9xhR
7INWnRchxtkMoMgFbq2N9wHbUDvVIZYBnaQDB2TQAFzXnQJWNwZ4dZ6FuF+f
oL56YyaLlwE8pZwjO3aMQuV2jlKbcx3Qx9Tbu1TGoEbJ91j8sVrAXBL5TWe/
gaw25dQ9m2pYFlclFbhOwl3OTfbjaZXA/DtvH7/YNHhIKr/XKKwAhW1run7h
LGjfFDQ7018O7UHynU0SP+BpohUbbTcdhKJnfufML0BrrLpIulApzKyOjvTJ
/QT9GxsuOx2KIWO6spUjagmyJUJJai9fA4fgqx/fvv2C4/VYPvdYAUQ4lzmm
iK5A/OEfriXrubCC8r797b8K/B7kM8Ps2XDvZEPpX/VrMJu74i0SlgmjhQ3h
74XXQZXgY1PMlg5/XHrjj1P+gJX55+dq/SkgeX7XlmPlBox3Vp2LWkwEzTRh
JxrPFvgI78euXX8JXoJWR75abINU+Cy7sOZzkJo13DtwlQntjUuTNE+Kgf2k
BdaGdSa0vNaeKsvxDFhq44tEEnagz0uhS2FfnsBN+cpPu68wo5x7u7t1e8Mh
77JtSs0KMyqK1hyOMXkEyzN8+yaoO9GHP+lZHx4EQ5m+5s4YDRbEGFaaPNTw
EPwvBSeXTrAg7dijWlZhASA8rPUxPZiAmLhD7UHVF8Iw5SLDRwR0tFtEIVna
F36+kgrZFU5AaaWrCbsO+QJ2l0P+ZjQB1Rps8/zcegD2rD1PTsYTUEwRv4Y0
4wFknzLVZLwmIKJst7+i5gOQCXOijwwS0NqGvvY/pj5AvW0SGT1CQLFOzlxz
Wj6wbXDZXu0rAXGn+o5aqvhAt5AkV9YEAW3sdfA1E/IB97J5V9dFApI4vHSd
Nk6Bzy9HNYR+ERCzSGmf2QAF1AK6+d+vEJBlqTRia6EA15XiFvkNAnrKuFoc
kk+B0i+eYhtEIjrf+y7mkwcFBJocNwp2E9EfSnMLw4ECwXnGH6zYiCjetoJB
M6aA0f2zgfWcRCRn/PZ7tjIFaswlTDwPEJEv5x3O19IUED/PL3uUh4iMHR1n
aoQosLp3cyhMgIgmBbwzl3ZSwHpxrkRFiIji9mv58q6Q4V3/SNi8MBG96mhZ
uThFBrmqLpsUUSK6+niA/cFnMsSl1inqHSUizM+w5k07GZhCaSQWCSJ6N3qU
ZbOGDM630ibKpIhovl9+8BKNDD26/1Y7yRIRFx5XQjoZlM4ExfCeJCK9Z08N
u2zI0G/Lq5AoT0RHMu7eP2tIBo+owoHDZ4iIh/kwR+4lMuSPf+Q7pkJEGjYf
YpJkyXAoRjpV4SIRnSa9yOjd9Abmxf4CfTMiirS5vu4e7w1tucebIx8S0VdR
XjnzQS+wONT1e8cHIvKkRLAoud6H5dbIsTuBu1Dwo/n+yWQPiGOxvKcnyopI
SrdsS4zcYf9IWRpzAysy0ErkqK5yA4JvoMFZ992otetl3eMtF2DKsSwa49qD
/rq6FvnuhxPcfVkUyYXtQXuUN6qMdztAteQjVk63vUiBmac7MdIWOLXuSj3k
YENY7Cuf3cHWMCTd/YFcxYYoypc+t0ncgNdJIPrNkh2N7xpqUdsyhRtFCpyC
W+wo6+AOz9PnjCEgODVwKJcDxdDNqjYSDKBgSjCeQ5uEvjswLVz20ANdTg7F
5nUScvmV85nFVgfCCMz8Q7iTn9ASWmx0oOH38uYCbk6NDKso3Apjw/V8f0iI
9F1rigc3X0nBdTfcBHoCi6S1DowZXHXi3iChkIVrzrqWOnAvLoJqt0lCDk97
xpLMdKAgIoDsjXsSO43Z4Z4IuGcRibs4+p+0Y7hNnC2OlOOOWBxxKDbVAVUl
qcI9WyQkYB6z2miiA8ShtkYa7hv2KxfnjHQAumuzm3DHhuw4XYzbu6EkfBD3
G+KqiBfu6fx4XcI2CYlzprLswN3pe3PYBHfE14XuA4Y6sOuuVZ0rbqaQa02f
DHQAOeqnP8R90plalYS7+Jqycz5uzaFvecdwz6jJajNwW9nPZMzp64DoGRHZ
ftzp/ENJxbgtJXm4ZnBLbdFfeOF+LrR3eRu3IOuDWBXc/wMP+Vb0
     "]]}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV0mk41fkbBnBZYiTHMaqhdCrLjMjSwozS/ROTiUxZOvHP2CVmqkMqyxgR
WlD2hLGrqEP27fzsqinb6KiRrTgZWdJCJMv/Oy+e67k+L+4Xz3Pdm51PW7oJ
CwkJxZH5b5u6jf5d/+bs3qcsbf2RJhqiRgqcQXlrnF4X1CMg3pGelFoi7wq9
wNCKl8SCDcrB51VPQbrSkN9DbNb2vPhPeR8sK1ZpdRIrRyrmLrP8YDM9+VcT
8YKpyw0n1T8QfVqQVUo8FspvdkoMhkVJZnUW8VHXWTpWPhQXu9SZ14ibjRQq
mlLDweq4cuscsbaSwf1p1hXYJDf52xGnCjvmqWRHwF9uKArEEkMhWWzVaxiR
mhpkEVe/7Gprso6Gwr4ZzmIjDc5hV1O7xBgkOQkZ/kPcr3XJKEo+HlH1Nmlh
xPHp39SrHEuAyMpGdRtiU0b+ntrURFQanpj7lrj8beuuKdZNXBnnHqproPGb
vX3xJadkZD/jvAgn3tI+pbkpOwWNRRU5ZsTXuLLfWaimofvMlrnWeho/Kubk
vHFPB8y9gq8Q//EgWabBOgPuX26aGhHv1NWIsk3MhMP8P6kFdTQy1hwKvyqf
g/05Q0autTQC2m40s6tzYFzX3i5JzA57Kax0LBcnt55MLqBpSM14BdWk3sJw
z97pSR4NX3687wQrD8YLL8rMamhYRfaXV9bnQers3IG+ahqaxqozoU75WNDp
Y3kSC0oqvBSz7yJaJjYmsIqGRdwLz59VC/C7k0bMxQoaGmZKeQoPCyAdNKa3
VE7+LfLbvyPuhbjEqt18jtihaqmozvo+Btc61P1SRmONWrSmTWIR/m568q1U
CY1giZJvr8iXYvs5nxevuTS2msRcLuaUYnhdTIsKcVfY6Te9D0shHNv2u/M9
0h8Rjbua58oguNl/uCufxoPFHE1+VzkyHFWSIm6Tez8m7mJFVqF5oGPSNYNG
mc7ZxJ+Gq5DmId7olU7DnmM166Vfja1d7e4BaTQKJxlVzaPVWCWdoBaWSsNy
9PIezx95qLz5Jdo7iUZSv79R2VIt+EqqZmXXaRhusM0ZOFIH50/PT1y/Rvr6
Pz0xCW4dRMse2R+PorFxws+Fu60eOQMG3ZIRNE576KoI9dXDsDbl87ZwGrKu
hXdyv29E0pGDUf0BNGxsMwvfvW+G9y87r7x2pTHVay2ZpdCCuj6tvrMuNMLt
JdysjFogNVodKOJMo8TltEJ5fAseZAcUrHWgIX3KICxA7wFiE2j+BlsaLSE9
/1sZ+BCMFb237xyksf0ec+UGiccY3my+o1GHxl+aLY5t2o9RnvfBflGLhmOR
b80fto/xclvp2C5NGlHlg5xX+Y/hcPGTcvpWGqP13N5b5k/wl+yNXZZKNNK6
DxTpxLXijtSS5W45GquWg+1MNnagkJksvnGahySPo/Ya+zvww+yBeZkPPCjz
NRyZpzowfNEsYMU7HvbmPXfppTtw+/3k1t5xHqryEssqNDvRFR9s5TXMw6TV
BM+svRO5jE5ntS4ejty58eTM6i7kPh0+3sblQcXi7WhTBB+x1xfvS9vzoBBk
ou+eyceTzh2XdI7xIMPNiJCs4EPRprvMwoaHeQkrTYshPjgH0zZdteShs77i
zMD33fi12cq0dz8P/trBS3OvuyGq99urZU0e2hlycprUc8g+2z9ku1iD8+0/
IGm6B2t+PtQfE1uDdaXMgRUrBqH7bI25Z3E1yoeMWjv2DOGR2uru3elVaPT8
c73thADV54Vl5s5WYkbVgME9+S9+svW+nGxeAeHPd2XWq4yh/Z33YbHFMugu
O5ZbFUyAGbcvIryqFK2hO9sfbJ3CSKO2xBbfErCixz/nvX2HuF3GDTvWF2N8
dnCgW/sDUhCZvafnPnLGah5LX/uI8rUbfPjihZBWvD0lEEwjTelycHjQPUR6
lB3PUP4EVr/hsQX9fHyi7gpOBM3CT9+yxmP4Nny2N5eubZoD01UrMK4rF4MF
zRF/b57HYGpax6fKbHzx5Keo+X9BfyS3YLotE+qG4kvHaxYQYsAxm1XOgEnW
ZveidUtojX4onD+bivOKDlte2S0jMUGgJ8lKhsbEkVXPzYWoW4OM8+nXb+Br
xjuJ5nkhanvPtJyPeAJE61IKlVJXUDKqO8qPDsXi1501PV+ZCVPiM/eYco+i
cfeAc0btJ2GqPuE9X/tFFGbGFWRGEkUo05lD3/3Iu4oyKxOReGNRKqHBSWx3
ySUE/RSWXjoiStkZxxlVqoVhc7/pP9lhYtSa+mqPR5Mh0NcLjZffvpLCPvVE
maYLsNvY8XnF05WU08xtofmxQMw8jhriBItT+GY4S4bjjyRRex9LZQlqdcgm
mdeR5/H1QFmWcLMEpff2Y8f2lWchFhhs/YPXV1RdsWSIINEbQnn2hUOyklTP
pZmHDbEceCcXRsk2SlK3RO/OSe8/CVr9sgTz1CoqNOabgIUxDzBNvTVCpKUo
EzWLr3Ypu6NvW+dTP54U5eamH7vRzxX306AssF9NNRxNE/EydsYvhbpMxaXV
VGGaRFXGUUdcCMsM7suXprzj35bmztuBO6qYIn2QQb3S/V1UdMwWFkzp7x/O
M6j3J0zMXebYuComvL6PWKanukGauPnzzOI74uptZ/SqZ9nQHepvUvjCoJY5
xapMYoUS7qFTxL5PPeXqZtgYsjZ3X7PAoBa4tRrrP7LhkxSZ6LLIoHLfdBzm
T7LBjbzg50tseODZZBDxyAUfuyjig283RaoT23jYbakgfjMd0hoywYaBvkaB
5BKD0vHws9MZZ2Nl35OWImJOgnrVtVE20Fl35wFx+NwZT31i3+aSiF7iJAsh
xZF/2Ri7l2IhtsyghLoEYQbE7YG/9tsQZ1/oOz7xmg1xb4f6k8RDEsZbkoip
41bZIcT+DlMDRsTFP+/2uEfc6sK0SxGwMb5P62ADcY745Q0mxMp6SlrP/su7
7Rv4MMyGvfo62XHiSj8qM434BmvVzDKx7N4QN1Pi/wMLiXwi
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.17428552835630576`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5607885009375*^9, {3.56078856209375*^9, 3.56078863696875*^9}, 
   3.5607900448125*^9, 3.56079036528125*^9, 3.560791937203125*^9, 
   3.560791988234375*^9, 3.560792643734375*^9, 3.561129793171875*^9, 
   3.56172823753125*^9, 3.561789798453125*^9, 3.561982545796875*^9, 
   3.5620463093125*^9, 3.562068463859375*^9, 3.56235155725*^9, 
   3.562354652359375*^9, 3.562465844518631*^9, 3.562961658875*^9, 
   3.56308664290625*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdXAtcVNW63zEzPBQF0ZCUkAyVY2pjoZIPHLWU66Oo7Ep5FdQoyjxRcYpK
z3iyn3ROD+qkUkQHszrYk5vZxXM0RzNDJeVk2aTkHY1qIrXR0CYBz7rrvx57
73mswX733nMf1t4zs2fW9/x/3/rWt/Zm1oLS4qIlC0rvWLQgfdq9C0qK71h0
X/rUu++llywXaNoFxZqmHU3X8J7Qt+JE6P/kDpxwpev3t7EXq+Yq1fi/3GrN
Q8i17LLNuCz+lbqINit4iJarVXvI9eyyRSOeai231MU+RZuZ0K+IR6vOLdVc
9FOeoOKpzqU8PfSTS6uu9lxn/mkpk0X89LwpS0E81dXsMz4ZZF1aqcZ/Nytg
LNckip0tQiIiZOySFSMrJLtWZ58rbSbYU0LUZjCh0CRGTfkGcc1VyowbQBmj
q12BirlK6ThhnwhkrxN+NWwDe3AWs8R3xONhZmffcTgE2Y8rJdgU6UaSZmSs
dJXlCIYtz7XyMmQ1LkcAz4X8KwFvrjU7X/+P+b4nXvBGm8t+E3ZAzzDXevw/
+d3/lCzxOEc5XC4KNXyBd/K4c/XqvSUVFU1P3XPPO5p1bUFBjRa94Z5ZT25d
MumZv113eR2Or8f1fwHjorzZKc9pltac5DW+vMSncWhR/szYBs12dkDOC2fT
pq7++0WTniEpjgqS6qjQokgGPVvIgPxlJGV5AZMpRo2V/02u+r/oep5eLSle
r1d6V+Ne71ZcWVn52AMPlMO/ODDu1VtuqWqy20uaMzJWedLT17YMS60WHj7X
L+ol0ocmn3TNRZnQcxSb7Si/RB/GEooh6l6cLecyJleSdOpeemhWdo4+l/RO
TmfSByM6Undk4DibtnMwxsUgI2g23yB32omhnwxsHXFgsNfuzmyxNw/Toprt
LVmaZd/kL6ZtKmi4vSu05IW5dt15/s7Gz4k+n88cCzQOKGiXO51OLf6N2bNX
wTo43JmZj8FCHVbro5TOcpKg1ZFEzdV+oe3D0wO67+lMsHxvYQaynusZdcqf
HdvgH524/ezQqaujiJ2GQAyZWJJHJi53nJ2wcmrbuCdmnhn5Us6ZzN0DT9r3
DaBhRU2g2Tqj220sYYr/2hI74jVrk8Nn1yyNjras5U7ixKFZ2dmSV0fqHC7i
wqFZcE5UqvqfsuBMdo7JdLvd0lLAE34DW9Xl5eVpUbCTFvNd374FzEL0+Dkm
Zs2p5J5721LjG09f1H2/xk0U+9NVcbvaxsc34vhpXtx6qstysij7VlLgKPx2
xc03RXkLnsvWbEcL/pTTnPvpMI/Dk47Dl+JPBOSAn7Ox56JhGJeDOHBUlJAS
zcLNUlxJKnWzRHHjxPqJX1fn0l9mJS+/lu7xeKB5fm1trcBIN2jucjgcNIJu
pWMc9Cg71qfPqm/69XvHl5jY9N2Avp//lBB3kgdPPI0t98lxCft8UxMbWpyp
1UzxCq3k2EvjpzdX3Dq7ueKumQ3OTdnbnK6JTYVN9ijmeytwIDHRkE2yo6Ax
V9ZqxkCKl3gnqPXgZVgP6UVgHVrU5+bmQodTPXuOgA5U/lJgneq0mb56vCkp
Xo0r0LtlbGqzx5HuOVw28DWPM33tqcqe91PzOryulPzdB6fO2uFaOv6V+pfn
QoH1TvccyL/XceoKfyyJhfTuTJIJ4etzSS5sCA0Ka0iN1IDmFt8/qTX4gp3T
pQaQvqKkpATS0wjNxG+PpqXN/3TYsKUN2dmbGrOyGul15CvSmpZ85oBjaGtT
ob3pU+ewNw9WDn7qrCt6KmnS7A0kO9tFHI5XXVW3rK+rnfOKs3nuGyUts3c6
zo5tshM7JPclkkQpORM8HLAilEH72XmgvampCQCC6Gax8YoA2jhjxrtbpkzZ
Q9/7vu7fvx2iNznsPndeprvRmbWRid0QneMnsbEQuZbk569yP7u4vH5b2Vqn
p2BdYec8iAlxITbe1+WRPEhcUkEqILS9iTT9i1rSvdzIEiI1hYWF1JjZ+A2V
yr5h1qwl6+fMqaWTiOeDCRNOU4gQKeWu4jH7Pi6/8o0ml72ElrDpHpKeDimX
E6dzubvWubTu0xWPOjsehkTSsIAEjAoJJRQAg0VqCRvYeUCs3++HlGXl5eW1
+fn50paw60vz56+sXrRoB339hn4m/thY0pKe2rErb8y325wTXY31WUtbPKnj
fSQxERKWk7KyIv+6qhJXUwXsVFlMimE7KaG0IcIN9tPuVIu3g50vxiycV1dX
B4TCgFSEWIj2eGnp0keWLXt/1eLFx2jsEZonSHNmRsf7hZOPbimfshnGO+lP
6Avj1ZG8PBjvRt+WN/Nd3lqIAFEgEmJKpj6Z8rQSk1hMKl7/pyJ5FdbQf9Sb
1GPpNKhTkLweXLlyzf2///1BKiSh3mV22u0YfWajc0bjX+uvefKQb9AoL6G/
FYI4iMs109X2blk5oTYn+Z50ki5DQ9on003cv1GbZ7ORTqVEWhRk0pLxnpaj
r972/POtUiKYZ2vepJN1FXnbNjVNewDSuElmZiUpLi4kNTXjvc078mtJLcyA
5ChRX15GynCdgtDzkFqaTex8EXAERwFDkAWSQLrp7733DcUXoQ5kkmzIm9X5
54qbd0tJmojdXkFKSvJJbe0Ib+sn4AjswEHeFJICGwFP2Q2kQXOqxdjIxUA9
gvQAOFN2icALgnDUnj2H6HVCxSLUdcww5WVlZF7DukNwCwyCVAAxUojXm1tP
6mEQsxjACFyjrVCL8Q47p0AMTPBgDzEgDsQacOTISWoVQpHDrEGvk6KaqvZC
b009/CEtApHy3O46aA64AqqIcXyGCOVqCd42JID9gVFIUFlcXAwf0aAiVDJd
AhiksK7GV0wqK4FRxDNe8fkG14m3YARgFIbAe+ATKfsPagneZOfk3Pr6euiN
SAEaEMo04xDoj4wCN1CpdO7IItAfdrjJv+H1ebXt62qocDI6oDuw+JSa82uc
MyKDOrcMnDE5w/Ii1zF9pd43uN46Ecx5pm/Hu8ii0upwPD4joz6j5lzLzn3A
CRwRAciqSGGwOJ2tCPI89Ib+1/rf+QvgFo4r9IXesPRqNcdXOEdwwFwIXWFt
WB3fQFegC1YG9/GeHS3I0eBYT3Jz5/lfXxeO43NqjuvYuTeKB5kFwRkSwK9A
FY1+piNCDaEEyyINl5Hy8hkNxzcishFOkpv2gprdWs4OCsGkSCwANBxJHcyg
IyE03r3jGEIGysGsN3h3voVoBWiR0vAeDtReDM7uf2IXkoBNzM1gJC1I9WQo
gd+g29W+zY3SZ2AGfYAO6AO9EJdr1epUs3MvxCAmM8Qlahlcpa8sHmE9oANZ
GQkJZdVC31svmlVBftReVrOpMtgg+eDIbmhokJCAc5D7bqp7vb2EVFTAOZRh
4XT34ffgFLMy2qtqNhwmvaCBZMOWyUIbTMtgNdP1bpt0DLL8bXWtzyOWoQ3Q
x4q/WjWbNeycCIghgcFFkg0wAIBDm5vr//wDyEvX3FlzZrUsOjCrv67msIpz
AKoQsEAZEjeuInAxiQIAC2tfPCPniQd9a1YuLe9YIYEMW72p5vAsOycAYqCO
xITkjJDBxAjqpRWPdyBE4I3HfOUPPOb0P4CkiykYaxKR1MOS50kpAVEJLwBX
yH+4SpGsT3Sl/sefBfkK3/ISSR71BguLf1WTf5qdbbBNsPW1KLhZiylyV30A
u6zxPXjHE862+wJIb1CT5om8JyRHRMAwcAMMA4kRDUX1VV8hW23x3ThllfPY
Yphckt6opvwEpwxqyFAQXAYBbAKTLy93+p/131UKwZ+rcN8OuIAyEPlvwVni
cXahB2iAFmiCNnUjyxAwwzLvI1Ww74t1GxbCAJgrmes2qcXkc2g86hO4DoaQ
IkL5FTVLv0Qx8IZr1ezG7I4soBkT4F/VFB/jFIEvpDIUZGZBt+ROaa/yFi37
2Dvjyk35P0xDKKKw2qKmyCuN7vA70CuTo5TxjzVL9n7hv3zIJmfDNKjN0tNW
NbmVnBx8DZXl3IEw25o76eet3kk376orH9Oc2ZEhvSEq8LDkHuXkQAYQAkpl
6gbwUWgedk8f2Jh7TLeetl1Njhd23eBnKCsxg+z/mf2y9g//NmXh/rKNw/fb
O4ejQNyhpvQIp4QJC3rCIXACsvzW4klftLxz68DD9lMDsQqAjh+qKf2OnePg
Ssy6so45lDmoc2/N9IeaC3dkbMltn8IS9kdqMrx0joMgSBGsTydUa8zNOtb6
9P2Dvs78sT+SsrZLTea3nAwyDPSSNV1VcVHngfmTN5zI+aTP+sKf5rDQ360m
s4ydY2VAYRpBtm1wZPu988tubs08kYy83RgciEv5OKBQmpXSIEeGX360LWfz
xRsLv58B1h+rOT/MzjGyNIY5l1T+sf34iLnVpzO+Sphbd/oVbZ96OF8IxWCK
kN54a8HCIz8NWT/586lHLmMR36Qe/iA7RyOBYD6D6T7LWfTuz5fsS/ttzdHf
faIeWcZHYhRGA0wn08rL2gZ/mjbK/eOe/eqR9/OREBUiQ/TcHU3Nnd33jGxa
UD/ts65G2lBWwl7PPPLRs+fiDl7y2Nt1T2sH1MP40tUGZkVV66o+m7hnZnvy
m9MmH9n7sfa5elipMezBlW+v/CHtyKU/jLnnob7+705qbj5M9OzlZq+xMWps
pIb73lOdK/dS2Yan+FlUGCHuY2crhKgs3lZ86pIDGV9eP+O1g4K/je2aamJT
UO6HWrjkEb4Te6IRGN/LGT/68IqH943ZNbJt2LtX7VwwfdchnTG2cHXpKSMo
Jxmrv8PWb6m+aRuO8T2c8dN3V9zdktGcenzGwwWvOOc2N+uMuVLhGYf7TjAR
u6pca/Z7G+j9mrN7Ze7Lc4+nftW7ddG1Dz3nvN375XnoGRf2O2PzlrOyhtHx
bs5007SGaa3D9iYfuyXjtSec97UdPg+vxob9jr2vZtvRtjD8lnDzILPvGvPt
mO9mVPY9Wpj2Plb62r8LptZgqNp0pBjo5bY071Az/pYwPO/iPDHFfTqsbVjr
r29LPlgweCfWE6JxHTbqFvNhyLbuTH/m8Sen9N4/b/jHbNgR9TDevbNhTd4w
1p997LWMPjuLx+6m0wrRjqqHFctcRPxYOq256+c7TmxPSnKVOLZhkfqVeuTt
fCQSLKqWhbVnXjzxSVLS1qJJ2zGyRT2S33oQjaYjFlBXN7Rt/uZgv34fzhm3
GSO/Vo/kdxNEY6EKnqM83+9pbsnI2H/N8Lcw8hv1yFv5SNm+GeE7+smBU0OH
Nk/OeHTdvHmd36pHLmTnGFgIawuUkenE42nwZ2d/OfbSxVsnTfpZ7KeYpsUF
HKqY+tAlwiSOQdvP5eQcmjCoaOfYsacw1XjVbAs5BaAHRmJdbkJnZVp+bsuf
ePeBoUNbMeV8p6ZQwCnAzOhMox4BBXQA/rDiN6tbUlObsWhoVVOYzynA3JAB
2kgKc+rXb2qLj2cUvldTmMcpSLPDiJLCqEN79p/u3n3/hA8++PGYmgJv68di
Ccx2xOgnSSHt5NHWE0lJ2+9cvfrwcTWFW3iuAm/IgLU7rmQSusqh6/lE4vN9
MWTI1pfmz/9IO6EmczMnAyMAe6xZQq/ArRAGr2/Mnv3x/uHDN2o/qMnks3M3
+BVeYV3UIDLoFZ9MSNiKYioCpTmckvQvK6WDKOVs334Wm3b0dbdPTemfOSVU
0NLPwZTg528vuujIskceqToZjPab+HigHGiXG0ho28LCGA+sHhw8+MSWKVMW
n1JLMpudu2OlgWCT1+EjSALPI27+MnXqmcMDB94JC2kRyN3IyYEU25kLQw6f
q4qKOqlwT7HlxY9qcuI+JIkkVppHifRA/H6QzCZ8hYK8u2/kyG2srG9TkxT7
1QGoMpFE4zeXGCu83aNHn0CdrZ1WkxTb3cCDXE4KkrHBJLEsa8zK6jg0aNAo
LNkiUBW3lwFtoMp2jPisFyPb9My01M9Y6NFQKEWJqp1RkxS32EFAkGQAFiTR
gkUjWP4WC3q6RN2Gylf7SU2Sb+tb5ATBkMxIRqFXJCZvrG0pjn/EQgdaR6A3
g19DzpD5S5YhaNahxSV/i4UbWp+yY+lXU53Or6GZhLzGP3Gq6DSi/Sd/i5Ul
lC+qqlqHGvhnNVW+y2wB2LGKNVGNg7/RtZG/xdIOXhq1Z89XWFdjKaKZSTPK
0wy4y0lMFElx2DQDQQAKVxCUaC9i7ae3Hs+qZZ1qwB4ZB5lH1okyuyNIZbkF
u8K+aCegU9GupnwNv4bZDlmR4VRQRh7C/GmibENZhUYM1s+6JSKQv9rALARn
mDWRl+lSkhf2kPbhdulQk58SBr+CfEDSEuRltCE76zuPnWryk8PAWZAPSGBi
NQHJAUAECYzD0m0E8pPC4NpEXs88gjx6imi44hOW/uhdaOfU5CcaeEStykDO
bwO1mFOQNA4lx9o7+CR3ILW/q8nnBKZi1jgT5APSEScfjdyJPVT4AIaBgWCo
CBwmBGKTZeZoPTtxq6AtwHwK+rgi922Jmu54fg01og5KIXlAlhJ2R5Me+0Ei
v7BtCX5T6wVqHuP4NTnHM2QKHgE5S2iB+Q95ViQHP6yDGAthw7iMNYCD9MVw
KYgHpC5B3BxVuIJWHCZa9iFKrUN2GADFGGyAT5bQxCQksyRecQVNMTQ1WY7o
itcYkRRE/c7QFBMmw1mkTH6W5xFucsEOXrLj2SW/0YGJieU9wc9c6Yp4jIZv
SoTFcKAJhVYW+2BVsxllwABBwtprMWHyHycRY45BHAGZpCteWfwayn4dFWpe
FtljZqgQJpTb/IYJI/C7IjABYNGCbkNI8pUpzRyogp/cGzX4RbgLb6ThMmx2
sLtdwvHjJGJgR9hTjjeHFecV4Z54u0gHVCfdb4JXQGq2yd8Z4St1w8Qr+/kB
/LRe7PV8m4DiIZKQMeH6RCPY2QqXIGIBBcAgguSyYDKjIDRwxT24ikaTKHI0
87MRTCJ1OzFA6uGSLW9wsNjvJgBpnqiMm5uNPGNRxb4hcrimm0pkZfOO9f6G
GtEMQdmWhRAUCR2J3SxoQJISgsrEYQgaqwsarhmpElTd1Ay0LRfZCgBjHpKJ
IZzUNpk/TKkuSje5V5b/XOq4/1rzBkn9K5keSD1mflbvdsc1NvOLqQ5zMuZm
/omfYVq5/R0s6H8HdIcYAQfTwsQwdYisAcnWYoQZjGrI2k3IGtJateqwCngs
SHaqu0oLg43MCXOylUl8sIjm4lhSkXtbISKGy5kZhi1QmcjSKl4An+B+cQF8
wRLBgWW62YOhAdJdzVLcx436H1MCq1DEoxIBVZaoGp1OYnpAIhDQ8Woul3DF
oAwcjKUAnKxkBIFM87hgKQtTQ7EILAfwkQhVKAXlEATikQ94LZilub6WLJER
kRkNlj3ULNM4SxlzcCHY99RxEmNkNX0et6lwEoFRKmck+xgwKTJpgs5ITFcB
E7jQCGUryleDUU81o358JIjDZ7IvLB6RQJkPbuyT0A3LKyyzzCxDa7AEE0vG
MYX/HhMYpl14C5DsJRxPPYV1hZkRUM9uPiFG4g0FSIJat2TDWzAgPIZ5U7DE
TI+pk+X22DAAsakAkqhm2ZsLi/iWN3SBNUvOSSKH0DoMqw82ZcvajPIDX4aX
aBVeIvDlOrEdnpA7vLhMen2LPosWFwY+Rp0WBJ9ear4cWdHAKQop8AVe5W1f
ffgQuTphpWecnmeiVXkmSc2Q59YYKAYmgBLubARuUYiyIpT73QJF9YI+LkzS
kSvxkPkwAn9upDjAGFhCC1g+SQBnw/i4ztayHPIWOBoOZ2slIQfun4PD2VwX
rV8Lmut6m+WwQg75cBN7wAKMtRj5EAPgDXPga/l4gNZf+JSGFrDOlqJxutmZ
CGwui1FhTi0CMC0e75DdfXZcHBherFPQzUiLsqUnWYbOZX3U1h9oQBmrTxZC
3cNAWYmsC9W0LzFQg44ew6qgbe4qSblDUROBdrrhBn2VLmgHVGhyNR+ChOTg
dJpmJBPdyqKKCFiuiAQTWvsnq6UVHkTbDpZgVha0ARZMbCxBCtp6l1Cn3VdN
m09sbHaW+ziSdkASlMsxurzCPciGB1PUtPuJJC56E2zi6mHQBvIQdzIAZIvH
kDsCbTF9AdW4wxp2gX16GMDWVzFGiAetEC9Sk+cWs0rw4T5RsDKRB75ZHShi
yXw3bpfkRfjC2ljcAoOwEp87LebmnSlR1rEnFnXy/dTkeZKwYnMOQMTtlnmk
rk4UEezpA9lsjFP5tb+avJjcQF7enotIYsmM8WCziRGrQS2FCJS5AWywC+pu
3NsJDiw+ewVTxq2biErDoalqyhzT0ZARBYa8Rx4VPq4l6cTjVe6MQDzOIA47
o3jCXdF4BYL6BBPXW9U68YuD8wnPmDEYDtuanxKB/MwiFwbTNfeoOd00s9A9
QBgU5QFYw76gigjFT2EZgAaKMI/2NXIuWJmsGSbnBvCLBT/QkwcilT1lQ2kj
WvsbgNTTebwq5Q5Q239AGGCLUA2dQSPQudhITsgejJZYvoRWYeldJlUkZyQ5
liYEHbgGgWaA9hI1nf66LVgiZslS5Ah9M0WXJwKdfjrsGB3WhBJ0QruZA9V0
eEazAAbIUWxCSzASSGCn8lI1nb66LZh9GKx6qSAVgU6yoRfui2bZXtAJXSVk
BIcYr2us8j5taIT3vQyFAB5+gziuDVIL0ls3pv48ibwWmv8i0OG8rTAMAIgD
73urYmKwmlSCoZ18EAri9TG0g3l4aODaEDUpHko2Mym8MvfrOYhnhkw1FZ61
bQgK5BJJhVUuyYaCgVN0BHq8IonGePl0H2gikeBaiir+I5Dkiwm27QeSQIR8
bA2lrAgjuUNtkPyVmWR3lmWx0hEHtESDElAHOSAEJNkUL1JF6Fw21EyTZ1Is
FcUBmmh4gj60TVOB9jJO5hfexCv797/gJl7R1got4qQEkZqZgX+jSF7r6vZd
sfoILY2G6SzVjd7wLENu3GU99AF6vgpavgzXGan74IGM5B3CITfqhl/9hJYh
w89Dt1gtpDcceMNuuIarXBOFTHQjfrED9R5vtbENFI7lAFXYXy5Y/rKm8nnd
squMFLs6L4gxoc2uCGNELRG6nB6pHiOSAeYuON6wxxXqMf1V2LxSPaafYQPM
/RxguJbV5ZjQ+TnCGFEvhCbMUaYxpm5kmKXraDV1UUWEVjBj1GOSjTHySRQ+
Jls95kIVSq9Sj+ljjJHPzPAxY9VjeqvGjFOPSQpEjDFmvHpML8PW0McYE+Gv
sIilI+b5QP/kqMeIilc+/cT+9gz7xqEe08PQB2jmFS6uTVKP4YWFFX4ByqCT
fhvK5GCgdTMAAAa8MsO1q9UMeKVhlffRAGxIG+zLa9TD+BLOisWe+XFd9uU0
9TBx7xHMBvURcPKvGejDA/7aTByGw7ry7+JAMQyB1RGrhodnmMfZzONgEKMY
vE4tHjv/g/7ynnbBfwAh/McT\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Moff35h", "[", 
      RowBox[{"r", ",", "1"}], "]"}], ",", 
     RowBox[{"MEProf", "[", 
      RowBox[{"r", ",", "1", ",", ".5"}], "]"}], ",", 
     RowBox[{"MGProf", "[", 
      RowBox[{"r", ",", "1", ",", "1"}], "]"}], ",", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"1", ",", "0.5", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "Pi", " ", 
           RowBox[{"MEG0", "[", 
            RowBox[{"1", ",", ".5", ",", "1"}], "]"}], 
           RowBox[{"MMEG2", "[", 
            RowBox[{"1", ",", "0.5", ",", "1"}], "]"}]}], "-", "1"}], ")"}], 
        "/", 
        RowBox[{"(", " ", 
         RowBox[{
          RowBox[{"Pi", " ", 
           RowBox[{"MEG0", "[", 
            RowBox[{"1", ",", ".5", ",", "1"}], "]"}], 
           RowBox[{"MMEG2", "[", 
            RowBox[{"1", ",", "0.5", ",", "1"}], "]"}]}], "-", "1"}], 
         ")"}]}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Black", ",", "Red", ",", "Blue", ",", "Green"}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.560236459015625*^9, 3.560236475140625*^9}, {
   3.560670308265625*^9, 3.56067042596875*^9}, {3.560670559953125*^9, 
   3.560670588140625*^9}, 3.560670671375*^9, {3.560681273796875*^9, 
   3.560681274328125*^9}, 3.5606903466875*^9, {3.560754381046875*^9, 
   3.56075442621875*^9}, {3.560758397015625*^9, 3.56075841209375*^9}, {
   3.560758885484375*^9, 3.5607589253125*^9}, 3.56076465121875*^9, {
   3.560788145390625*^9, 3.560788209359375*^9}, {3.560788247984375*^9, 
   3.56078825190625*^9}, 3.560788499203125*^9, {3.560788556328125*^9, 
   3.560788634234375*^9}, 3.560790040109375*^9, 3.56079036165625*^9, {
   3.560791900359375*^9, 3.560791926390625*^9}, {3.560791964875*^9, 
   3.56079197965625*^9}, {3.560792011734375*^9, 3.560792031859375*^9}, 
   3.560961433203125*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {GrayLevel[0], LineBox[CompressedData["
1:eJwV0nk41fkXB3BL6Ua50chce7Y2SZL6aXl/B1F0M9wrKqNriYlJtrL0K/Sz
JJdJdCmEYibKei2VSSb3fpuUpbpIRBk/ZCm/Sorw+8wf5znP6znnec45z3NW
eh53OiIjJSWVRuKfbHdk+GnD2xM7xf4W09/20VhgpRbYx+Ki+KuH3QzxptzM
bCHLG6oKUxafiQc09GPCDAOQkfbt8TixfXNnZQ4rFD5nwmbfEOvzNQvntSNw
oDSg9RnxNzuvDA/DMxiZHfmhgXgkViLyEMSAhSluMbGL99S9i6xYBG/LY6QS
i6zUahuz4/FF+MktlNhEb0f5J+1EyHssdOISZ8vwigyuJ8Htw8CQCTGj/+y1
/YYp6FK8oSVPfPf1s+ZG7gUkco987mPTCPzR285NkIpY183HK4lfbUiwSmal
g/EgwppNnJ77fYPBoUto0FuTr0JsxyzeXp8tQPc2j9yXe2nUvHuy+b32ZaRo
TUUfJP7F3b0yweMKNmbmeqsQ67a8N9a5noUhA5+RJ/Y0UkqUVzsaXoW1/5ee
jcS7NAsK3vrmYmeUll2fHY0z9JVlf3LzEHdY9WAisZm5UfIBQT4cRPZez/fQ
yFNxiD/PKsAIu0oHu2mcas4Q7b9bgDS4Fj+1pbE/7rWM3qFCXN0leMEjXjIZ
FFWX/RvMLN/qnbChES5JDx/TLkJXV/rpE9Y0OPxXNbcbilBbWLhp3IqGsbXh
ZKxHMawi0i94EA8Ia4M0r9+E3jIORVnScEx76bfPsBQmluXR7aBhZK9XpPaw
FHqz8ydNiRmyvwwN+pYhsHJ8BX8njcN35iruc8tRXbTKefMOGiprLhi7CioQ
KlzZcdiCRgxDuCqRVYXNfh27VcxorLVNPVcZWIWPHUHCtZtoPIs7/rb7YRUq
6r+32G5K/kfW6KbxyWq0rVe5yjGhQc8WGEue1aC5Y8NzjhG596Ngszb/Dtqc
byZf0aNRvfGEYPffd6Bg3iwfrEvDPZAzFWRxFya6rmW7VtIoG2feEQ3fhU7K
y6A3WjSchs9t99v1B2ysIj+OsGhkvoq0qp6rR7Zs7Q0bJo0fNA4U9Drfx/TF
EOk3S8m/HtyykFFyH89VYn8NW0JDayzCq2R9Aw5ZhjhcXkzj+FFzA6meBvDi
JRFlsjSUvctuFG59gHc+UodWTYnheiC/bOJ/ItyaaHu9t1uM991c+WtqYqx4
ShX82iVGvDvjCMdKDGVH6a2tnWIIvY6r1aSLsXPHOYm1RAzFgB1xp7bQmDPN
mlvcLIb4bNdBudMPoTHzt+zsPTFMbynJaTCaYJ0gn56cI8YjYzGv2aQJFwv8
Tv2SJQavIrzuzIEmzFz6uH/3ZTGSa/oC3xQ3ITTg5/efyZzhhpLu39iPYaud
+tcGvhhX2/dUbEx7gt+Pp5grRYqhMB/jZqvVitsuNobZHDEyj7q4G9m0wtL/
duFqRzH0JUY8pYBWXI/U4FXuI3sXdXp13yN126VJ9/aIcadIUF1r3IY0NY2+
Sogxzhn7w76lDZJ6z3K1dWI438h4HLL0Gaqk9tcNz4tg4PhuuDFJgvWfsp3b
8kVQi7K18M2XgPVVcCzkqgjLSvKS5GslWOtiWbk8S4RpBsfYsV+C4YjeR/bp
IrQ11Ib0bm3HRFaT/5V4ESJNYua+/LcdH3Sc7IV+IrQwv/vOmOqEdkTntn4T
EcJa/oXMT13wLfdyKK1uhGqVUq+0dB9kotY7qt9+gJp+qyet2/vxQLvRQvH8
n3jgl6N+YGwAq8RxNvIODZg03MEsOTaEKy/OGvdT9ZD5enOZusEI7iZuOtN5
qw7m87waTukYqpNWODmz7+BJrFkLvfY95H6cdvRRqIX2hdGvRe8mwEhttOdV
VWF0qq+33eQDipXb2iMKK1EwUtekmPIRzsLRFn5qORQ1f38/MPAJufs0XDs8
S8A/Wu2Tp/8ZLm94u9s3FOMzdXPg56gp2Cm9WKIu/ztCTUVVKxq/wKkguHfe
uwB9paKkpyun8STxWqNQko8ZP0nWmsgZ6DpZLpKY5mLdD4vmfOq+wZNfXmkY
kwXbayt9K1TnsOpw3dtDUxkI0zys+8ZtHv/JXu28k3kJRmPOCp1sKYrrujnX
KekiljMnGKJpKWqwN+k3nuEFLLifVaaXLU2t3TL4odiLD3+zuq7F9jKUuard
ZWb5Odzc45lX/1mG0qlN8BxNiMPkqNqyQYEs1WB2XqVu8iyqObay6dYLqMLM
NQqaCdGI2h2XWzW4gAqJdLr0K+s0Vr6ye3E9biHV+OX7kWPCCFhsiU1nmcpR
nmXGzaxTJ+Gm1fpV+rkcpfyuZ4FWTwgmm5L7A2MWURkGBd45HkHIXOAe6qTP
oJS5kSPMuwFY3lt9TUbEoLiP0j5+ovyx8HQM919Biym95+VDJpO+kCpyL+tX
lqdyILLZb30EwVfKkpUfyFOuksYZ9VpP3Ft3jqEUoEBp9OpK1yTwoGQXbHRW
cQn1wia4cyjyJ/Ssb3se8ccSSlnnEa9O6SDKr0J/wH0pFVQffcRjlwt+KjNX
0pxbSvHH7cfkX3ARHZcf01OsSJny1E9uinNCybBmluJeJvVTSrOOQ9aPcFRS
3PpwmknlWNUblPPZOL9QRr3nHz/rXm5LLPo6OTtB7Mm6JNubxIZ5/6tGtRkm
tUz4ckiBWE1Y4hBAbOZa0eibyEY/l+2r8o1JuZ2I/0s7no3QTL7Aa5ZJjbnn
yaVGsVHCj44IJw64vWr1auLB6FC3ZOIVE3vs759hw/Wom24tcU2vu2D8NBs7
LIxK5eeYlNTMI9j9mw25nsfiCuLenbl9shFsoO3+DZqYsfepWlY4G+EiYVI3
cXVTjosp8citLMeF80wqXVqugxfGRstp/1euxCoZyoP3TrCxKPhwwzHi2GBV
Y2diyodz/SyxaWJN2FgoG5X7th29RWzFbmSqE49abtj7J7H8uIl7ZQgb+lv0
NnQQz93aWrqH2H2dqvLoP/3xL+dfB7ORoa0wOU+sFbyCE078f1J0TPk=
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwV03k81NsbB3D54k6SQauxJUuqSSpL+3NcRUgxJAoRcqlEKVtludaxXEVD
jOxlZF+zNd+yTFTIkkSUK1ukhVyy/M7vj/N6Xu8/nuf1Op/nHPnzVxiO/Hx8
fEX4/L8aOI6+IceuH35ZfJutPkiCgA7NbUDSDN6mVZXswd6TksAukXQAZc7t
OTXsIWnFAE9lV1g/9PIyHdvwdXdxsqQHjG7LFFPGVoyUyVqW8wZSQnhQBnvB
wD7eTvk2cCb5Btdgjwd11tuxAiC8OVKMgn3aYbb2rmQQyFwvvjz/iYR6HVpF
HTsEBG54zo1jqykcKpyWC4csicGSHmw2vy1HKSMCkNEcuxGbMhiYbq4cDW1D
9aVF2FUf21/XmcWA7Cmj34nYbsYOBlasO/DwbZJbIPaHnaE6UZJx8O5ByYgh
dlzKRlLp7D14Lxg7tgPbgJpz8CmbBRVPHWii2OVfX2lMyd0H+YA1K5s+knDJ
xqY41C4RPP8R4WVgb26ZUt2UkQRKcztLb2JH50momCg/gHg+Temt2EdlMjPH
nFJgc8j++IUBEm43Joo9M0sFX8087RZsdU16lCUrDbQXVZQuYaeuOxnClMyE
kshylbv9JPi+jq83r8oEdq69/Gls8+CP/Apns8CvZ6sBDVtkxt2vmv0Qeqoc
6EkfSPDqjPOakOPAIrquGdpHgmnkh/InJAdWHm8sPoStekR5JsguB4AubPuj
F++zpMJdJuMx7Nvz2cgc2yT2vcsJ5XzQzrzkQ3lPAt1QgUPj5YN1UEdAYQ/O
m7g0MuxUAJNVGtXm2Ocql4q4ZoWQBLfrk9+RsG5rjKoFqwj03utqrO8mIYBS
siVcshRUGcYlhR0kbNO7E1bsVgreOZGCu7Hbg6+M9fJKIWBd34Gidvx+CPpj
1RtlwC3nnOK8IaFxMVO1s70cktO+HvFvxff9ydKQi6wEc5u2403NJJTtus46
9m8lDL4SW1bBtnEznXXfXwUPqXn3Q5pIKJikVtaPVoFT4o7wAy9IYIyGHXQ5
WgMGwjOWkQ0kJHzw0SlbegrT1kvCzVwStKUtM/tPcUG2QNmZgj1+RkuQkscF
7wuTpUeekiA74W2ft4MEO+sX6ytqSLjirKnEh3PlowuL/l1JgoRDQXbW3uew
MjNs05NiEiws0wq+fa+HyDfKZfczSJjqNRNOpzVAavW/Lx6lkxBiQ3E01WkA
5om3kqVpJJTYX6GVxzUALWPcg5dCgqjroWBfrUZYHuuh9SSR0BDYc0boFg8u
+57zz44lYXeuuJA0pRkWV3dy5gNIaFJtsH2t1gym3bO73viTYFvkVX3bshlC
lUUEH/qREFU+4PYppxnQ2FiUwS0SRsm83odGL8Hy91stPy8SHnTpF+2KfQX1
aTcs411JWLUcYKUn2wrb3KutQixxXs6nbei6rZBzzGeTqgXeVyfdVty1FfbZ
t5zsNCfhMKfbvre2FS6mH/spZUZCJYdVVqHaBgtsBauEEyRMmk7UGLa0gbMa
na6rQ8Kp7PiX11a3Q1S+Srz3dhKUTL6O1kV0wtKd1EzuVy7Q/PT2O6V1wslo
kWH+L1wQy0uNEK7ohGS7o7w/R7gwTzFVNRnsBN3vOVeeDHChjay41r+3CxS+
XwjxbeOCj1rA0n+fu2C0/Q46X8SFFurataqoG2INC1/WunHBs2UfJEz3QM+j
82PU4aewoVS8f8WKAfjt2SkaWF8L5YM6r1oPDgL17TPd7/Y18NwlWcpyYgji
Rm5bLkxWwYzyIWre5RGI+Mxx2+BTCfxzj8WklMYh6VBH0J53FaC5bFtumj8B
LMNNaKNhObwKUm9p3DYFS6HJoZSGUpCL+TLH+foNhNzEUO7mEvgyO9DfpfYD
vkavrvPMKoLM8epm0eifwDrEOhm8vhBEZR5NDQ1NQ1mC6D0X7TyIdC67kKr4
C56oe7Tdzc2BX+jx0F9+s5DAEwycFM4Gj931pevr/oOVefLzf5NZMJBfH/FG
fh7E2sYOK3tkwG+XzqStPr/h7V3/lzN2abBd+4+lC9UL8IhXmVOzLwX00uWd
ijYswRHW/amUqiTwlDm3+ZPVMhT0tivOPksA+sSpVd1GfGhE/NCYnTwL1lC/
Uern+ZD61FTU2phYEOAmFSiwVyCP4Wvvqp3vwEX16p6VhvxIcXFaajw7Gh7r
n099+osfbRrw1ygVigB1uvxhmONHV2Vo0z/mmPBU9GMv9zc/soFoR61JJrR1
WG94xkcgM5UgizcdTLAsly7TJgj09UJDlzKPCYMJvYznggSa9bJdDKhi4n9t
GV0nTKDFs1t09NOYcAttpB9ZTaA1r9dZl8UxQUihu6meSiBvxr8bt4QxIUaQ
5XRUgkARB656PPBlguSomWDjWgKdOZx1WeoKE9Kb12TobiDQ2N2uteOt4UDP
a0c8SQJt4ardLasLh7J/7vTrSRMo1N0vKqQiHA5fNb75QpZAx+TyBKwfhwPP
jErTlyfQj8ysmb0p4WCs1VLRpECgbN1TNrTYcDi/YPizWYVASr8ioyd9wiE0
RM/l9W4C3Qs+o9ZlEA5tiYct2nUJtI6Sm/PoSxhY3lqcYegTqK52Qvb9QBgM
nquJ7TAk0HjtxzHxzjCYVtzf2mlMoMv6hb53asJAskBDt/sMgdxEsk61RYXB
+Tq6ep8rgYx/UmiGu8Jg5gtNbJhFIGvHzFLlm6EQlzzCY98nUGVNjAbVLRT2
nCz1M2UT6N0et6JF+1BwLzaaItMIVOTS98+EYShMevm3JOUSqPaeRaq4dCh8
FhyONHlOIPaFv3pu1IZAl1zRytpJAgkb8CTZAiFQZqpHxB0RQMsxpU68jCDw
OxacUjosgHiyo/P5+oEg/8HgXUawIDITsV+3dNAf9msFxUnuFkJSpheZHcyb
YCXbOreiQwgRiYEKTkbeMNMcNegW8AeK0bZpXlS/AQkCNh4MRQr6lDxxUDDn
GqzpL0vnr6cgdsFiXf51dxC8FWC2z30lMh2pcbArcwU+jk3BoIQwOrIlvTkJ
XYSriQVREs+FkcPRo8XELyeo3R5GEXddhU6k7lAR2OwI4gZX6YGiIojvvckC
s/U89O1o6/CuEUFhWjfbzRNsofABKA7ZrEYmFo4GxlHWYF2gKS6ztBpF8xdI
uzqeAf/gtIC+HFHk0mRb62x7GvJGZZJEj1MR7w0x6jVkBibiont581S0b9Y6
mxPEAKYgv1Qf9q2NqhmO2PVzM4vfsI+rrk6Rx9Yc/FBH+01FXUr/3b//NwNo
JXknXbHtX/izwwMZMGhm5LRuAffPW3Q6+zPAIyGSZb+I51OFqNtvMiAv0t/b
C3sFPXf7iC8Dhv09rKKwowts9TOwLZytNldgn+uZDpXCPrSfni+8REXPDzSJ
i/gwQKjvZUMR9jcrWYtJTwZAGze7ETugIzuYg+1VXxLRi01z0S51xB7PTTIR
XKaiws/stf03GNBy6+IHC+ysxIVPLdcZ8MfVc+Rl7Mx7sxsisNEF04xAbOMo
vpN62MUnDjjnYs/bHiS5Hgz48ufO48+wFdWvzPtiK2op7HyLffxHgcZebJvt
GyS+YAvGL7lPX2NAvNyqmWXsCZmzBYXY/wMj00rU
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV1Xk01N8bB/AhzEgZpERJaRBpok2UnluUslSiKSWEFEWyziBblspalsiE
hC/Zs2Q+hDKWZKsvWpDIV7Yke9l+9/fHPfe87j3nOc+9933O3WJ588wVXhKJ
VIbH/2fdK4Pvq4ZcD5VLg26XDwF8WlKOPZLGED+tZNCJvTspjl0oaQ18f5bP
fsLu30jzc5d3AMfeCut/sfWaPr54IukCK/qvsRqxaaHSacsyLHAsWI6qxl7Q
tXp0Wd4baG6BRaXYwwFt3MuxfiD9ZeFLFvY569lXDyUDgMRjS36CzdWSelnN
DgKR+03qodgqWzXzp2Tuwd5IuhMLm81rkSn3LAR+ZEbmW2NT+vxTGPLhoD00
N2WATXz70FRtHAmLnTdgL7bjaWtd09gHYBkyESGF3b0zWCtMMhpoeQZaPd4E
RCetr5K7GAOzSarpFdi61OcHK9ixoHtMm8rGLhlr3PtLJh505iWmTmPfMDN7
EXz5MeRYjtzchi3b/Iu++VkCLKqITSzeJiA8R2yboXwiHOINEHyGfVQ6NXXo
ahJUqP+X6ITtXftY5LVxMmgfrtVA2Hv2KYeZxD4FDXf1oHYvApLXngq6L5kK
2Z4X7Qc9CfBsesRlEKmg1krfn4HNCPzGu/ViGiQM/Ra0wV41fcunjJ0OSyF3
33R6EMBsi2aOymTCadsv9/JYBBiFdpeUVmXCjLlQuDk2XVt+OuDyc/jUQ8Sv
xu4vfHlL+lkWaJMG6qyYBBhGfbE7KZ8LtfplfnNuBCjrbc2UqsuF76XbuXHY
lBU3fgxczQP7PfXCatjmnKWCSuN8GNP4r9zelYC1ipH087EF0BFg61PtTIAf
pVDhnmQRkNQXi0QcCVDSeXD3hWMRSFV3lQfdJOBD4M2hzroiMC1lu/11wPlZ
oZxFdyuG77bmpE57AmoXU+ltH0qA397nlu91fN7J2L0yoRzw1W4eN7UhoFjV
Nfb4dw60Zi0p5V4hwMzRaPaWBgFnWnolF60JyPtJ5XAHcd3WkHXRVnh98O5B
u6PlUPR764N0CwLiuj20ipcqwFtuV9mlCwQc3miS+vVsJVCevja5b4LzekGN
n5JTCeXBt/OLzhOwaZRllbOjCrQrbwbzniPgpu0+OVJXFRQqr+vzNyJAzDov
I23/G7jzRe/OOn0Czps8zRv/zQWxvdJmIQcI+NVpvDJFqgZWV5y28cd9BplR
rhhp1QDtywGWuzoBhVY3pUqia6C86UjVRTUChB00Az3VaiE61OXLqt0E1Ph/
viBwuw68rEleokoEmPKHFb9Mq4PNCx2nhrYRMBGMRGyb66A8iburUoGAzWH/
1LyTqYe88NUKV+QI8HrkqvLgTT3Iz52Y2LaFgF3ZogIbKQ1AOKaeVJYg4C29
xqJJpQEETRMF+9cSYFHALPM2aQCpa0Yf48UJCCvpcex93gDsHSh7WZSAwaqc
znSDd9C84H60aBUBie0nClSjGvH93vV7zUOA0LKfqc6mFhD7cjn3wRAH4mzP
mSkfawEDfa6m+CAHaG3KFqIOLZD6kbYUPcCBQ5kfrTpftQCt1HjNA/yunMzY
4pf0Vmi0K4l37ubAT6PRcr3mVuhaL27X18qBsxmP3jmv/gCXqeff2ZZwQM5w
bLA6pA1uLXo67fPigJSPjsbVp21gZl51fZMHB0RykkNWvmyDT5PnrPiYHPhL
MaIb9rVBamj3qQZnnKOql85f97fD+Noh+qHrHPBQ8Vua+68d3M/0htSacKCZ
Ki5ORx8h/kiSmNleDrg3q0Pc1GcQuCjv2jhQChJFol95eHrAZHjOPRuVQkmf
VmPLwT4wGylodXF6CW/snmwwGe0HxYLvXtWRJTAtr0nNsf8BjwrzTeOzi4H3
T5bIBrlhSD99bTsrrQj2LVuUGOWOgkqyZph5aiE0BuxprlX6BVFPvYnh5Bcg
EznyJ3NsHIQej23o8CuAkdmer+0qE6BtN5wx6ZwPqcNlDcLhkzAzczJqISkX
hKX/+dXfPwUqhv72tXbZEGpbbJNMm4ENL/bsbrR5DjMoq/+azyx8b+IcCdXJ
AJdd3KJ11XNw5vtZSQXzdOjJ5Ya83/IXfNmFbJ0rqTBv15ag6DEPEULjvFHh
KbD9MHnJpmwBbGhjtxTGk0EnZcvVAokl+PR2w+HsmERwlzaX7TVdhs2Gk7v9
ShNAefSs0EcDEtre1raYIRcPa6jjFO5fEqLdydmvfzcW+CoT8rayeVCakbdg
hG40XN9T9llQjxeZRyh0IrGHkHXCMrlihhfFrR0u4VsfCdMjUiIDsStQCTWF
LPAxFIqNdFZEa/Oh8NRwBf6Ie+BzPDCpaIAPFa4rcFBoCoIt3bqfngXyo1MH
2OkKlwJAQy0gWnKXAHJltYvRl/zAdFPLH55/BdDkmG3oTj5fmG4I63P0IyM9
y2CfyX1e0CXUfm3hDhmpDTx1C1P0gjf6G38FB5HRh9fmYTs2ekFk8/P5xBAy
CuHIifjyeIHShzrxphgyOlaSoODQ6Almn3l0FJ+TUcdjsaAbVp6gLXWiqSib
jDR1285dZXjC9ouRRiiPjNzr52WvnfCEua5NFueKyCivksT23OkJD78dYAVW
kJFGQUrH0LwH1P5wzer9QEY1UcpmvTEekL3tlap9OxndyeTP0rjnAVG2fKVz
H8mI2Rb/Lt7LAyxGHnKp3WRkLPXE29bKA/6O5XVr/iCjijVtdidVPeDbzlmr
t0NkFGZ7TLyD5gF1joeGjUfJSMKrw9tqvQdETzTOXP9NRqOXVoVHLLPAc7f4
7dlJ3M+IKJ0+yQJLl4sr7syQUXjBVOCHARbsnBmiPp4nI+kRCWPlZhasU1ON
lVsio+DO8pre1yxYcGduLCBRUOkyeYBdzML/TmXKwRUUNKEDsrunmdDwR0Cx
np+CTN+mTRkMMSFf42SeEYWC7rMmtB26mfDIM2Zvz0oKWtkyLxL9ngnWi1uP
zFAp6Ilz8ppxDhN0D12v9xOjILlvw0flc5mg6vPi5Oq1FBS14/TI5RQmLJEO
X6RJUZC8b3PQ0H0mxPGZuZyhUVA/6xpX3RTvW0nsfS9PQWdFudHtp3H96tbp
U4oUFO4S98DtKBNU/LXcDegUVHAigVJPZ0L98jaP4/spSPZSbmEGDxNm/076
HNKnoLLfsQfNM9yB8fteiJILBdlesqZF/XGDNV+LU3i5FNSo578u47kr8N/2
M1a/JYgKrPVUz61xBlKmWV6f2Eq0btXnmNxfjuD0OC9M7M1KZByefka/zh5e
bb9LEXUQQmfj3HhPgR2I6jop+wuvQmuKFEP5zl2Frh2t/7LKVyGD2dJ//CKs
IT8RaP1mq5EUOY4v5ZglXMrbJyq9tBpNK1G1+PQswDfwqV/Xc2EUt2fVhegG
U8gZlE4Q1qein6HtFyqyTMBQVHh/3V8qGvL6fHA4nwH3+Xk3dGFfaK4Zicbm
/pleHMcuuSHIBux9fd3VUvNU9JsVS4rJY4BUYc4pB+w1B+o+Qy4D+owNrq5d
oKKvXt6NMVkMcIkLjbVapKIORenCI+kMyAn1ZTGxbc4Phv5MY8CAr4tpGLal
7MprcdjnbU1lX2K7OhnKjqUyQFNDOXflEq53dSw9/hkDBLre1RRgb24xHR9P
ZgC0VmbUYpdsiOhJwGZyC0M6saWzJFqPYQ9nJxjyL1PRLq/txewkBjTfvt59
Hvuu/qWI44kMIDuZV9ljPxE/fG/yCQOQjdEzf2zNSY+AROwXJw/YZmNPdY97
T7EZMHJkp/5r7Pmvyt5J2DS1rTs7sK9/q/DWxTbbLiE2gl3cle47ncCARzJC
08vYps39d5Kx/wegBYYJ
     "]]}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwV0mk81fkXB3CEjIqI6opkbybdlmmQ6PMzpkiasoRKXFEoWZux/EsRMqFV
9n3L2rX9fkZkycUU2UJlT4pQmikZhP93HpzXeb0fnAfnfI7CKTfT0wJ8fHyx
pP7rRqfH2mve/7Y3Q+fF6zEvBoL6Mu6DLHNYGO1X+c8/JscklLAcUOKdMvWW
eERWOcBb1RU/GLyjhokPPntRnMi6AIk761n9xMrhcplL8r4oD9Xy6Sb+ZmQf
bafqD9NiA5sW4vGgTp5dVACEPhg08YgtHWYe3WEF4fP5PdXlxDx9mbK6hBCs
qVXWLiDerqRb+EX+D1g8EdZJJk4Q4OSopIchtmaEd5NYZDgwzUL1BrI0H3f6
Ez8c6nhWZ34L0mvTz7kQux9xMLKOug3vuLA/rIj7t13Tj2BF4r1eyHF14sjk
9TUqJ+7hYmTaKiliI/FcnaqEKKye7DGY82TAfGz+aUo+FqO8MpPHxC42NsXX
7OIQpO6skEGs2DLF3pQej9HTR3yCiG8USG42UU1CeVd/BUW8Ty4j471jMgRz
7mbLEvs3xK2uNU9B47Uk2RkPBrs01COORaWi8UR33H3iFOnDIddZGbi6rPvT
V3cG/3sWzbN4mIFCn92sRmKL4CEBpROZWORST+4Rr5z2uFyRkIW3bKcaNrFP
Z6TPpHwO7r1xXXnYjYFZeD/zZ00OxAL0vNYQs39RnQ6yy8XkXtlT3a4kz5Iy
D7n0PPgxii8tiU3u9pz9VfUB1GhJtQPnGagfVMqRaXwAflZdKz+xyDKX0XeO
XEjETPOVuzCwLV8sqjYvRIux8oIisfT3t9hWUUWoZd+1eXuWQYBIidofrFJc
1FDtVnJiyN/cDi12L4XU39lCjxwZdAS7ve9tLIWWucElc2LlZep57N9pVN8z
3Od/hkHDQga7s4PBa9fbex45kH0/R/0kH16Ofk37vjEOA3rHb1GGb8ph8dNw
/BliG3ezGQ/thwg/6ZM5bMuA+0G8nDf2EN+p+kZ32TAwHQvVObuvErsFWuey
rBnE9Pvp04tVkGTZDs1YMtCTPZYxcLQa0zKCZseJx49rCokUVKNYcYdkhQWD
jZO+9gVba3DeqfV376MM3Jw1VPj6asDdPNHfa8pA0oGbnan1GBkvIg6aHWJg
dSyV++lvHtrpsPkFisFUr7lomkw92vrDXbWIQ2xETpvp18PW4Mg5DzAosXeT
YSLrMef1UmBQl4GYq27w/zQbUCmwgZutzaA+8NVx4UuNWFswqvr1RwY78yWE
ZUWeIib0279+KgyesOs5z7Y/Rd7MB8Frygw4RT4V/seewkV2feptJQYRzKD7
69ynEDGev56mwGCspqA361ATQmqObCmRY5DUdaBox91m+DgOt9+UZrBiKcDa
YGMrStQfOmgJkns5W9qo729Fx5uyRNllJK9OdY6EayvUgvMuLvEz2Jvzwr73
USv4TDy31i7RKM+JosvYbahL9LfbNU/jg9lk5cGWNui+DDbu+ZvG0ezoJq9V
HTD0rxJUHaChYvJxrC6sEyevtcU2F9OQuWyg7ZjaifYf72zVLaKxuiAlTLSs
E5XSDsjn0pgTMWObDHfi0P2ugeB8Gm01ZV4DWl2QUziyXi2Lht/2gMV/33ah
PqipXSGWRou4lBSbeoFPiQ6m85doeLfsRsyXV7h66qOepT4NMTb99olID0qH
q++H6dHIiNgePi/bg4W8Hd1VoNFurPbKZl8PJv2u31DQobGlScpLJaoHa66o
+7zcRWOwcSqrWLMXSezm0JWqNAxqM8We+fVhdGrW+9ZyGutKJQb4+Qdx6fJW
YXny98ywfnOrzjDENrLCfNVL8fhs4oZjkyOw3explxpYgmlVXfGC86NQPV+4
T7+7GAKzeas3qIxjSPbEqzixYmgscRizB5PQq/0oFW5UhOagXS0NP0yhSEFn
k/vVQsjfmpjN+fgJS7mbeCLGXEzMDA50bf8HB+iZhansAmSMVzwVu/EZHFrX
omQoD2Jy96dGRr7gwHi84YJiLsKd6TMpyl+RNTTjmhiaja9U3ojT5RlcyV3T
GtKZhQs7eaVr6/6FpkNlTJBhJgYf8MLaFeaw7sC5X/pz0jF/tjP+e795VO7f
08FRSsMWveWLZyq+oe15m5B5YwoM0hQci9Yt4oF2Su+d2iR4y9kqvrZegrPZ
66oGwwSoTx5d8eIQH5X7xaI9fCkWa8Q/ifDm+ChJe6nJn/OjIVgdz1VK4KeS
vCfNCzPv4dyuilffHRSgPHRi3+6Nv4u8A6dSqr4KUEn5V0aP1t7G9ITM6ndR
y6jUbb3145tvgTYzWBb5iyC13mG/p45iBC4bBieXvhOkjkl+Mcx1vA6FfqOX
6cFC1BEvcd2wf65BWzMokrVTmBJU/VkzITAY1htbZ/mfC1Md7Ydm5dyvYvpp
xLB7wHKqcJvwuOfpAMQI2lwwVRah9q19LbrF4jLWDNBpAjwR6niAzdSC3kUI
XQow3+3xHbU2RHldg44v+HJsuMOSolRY8F3dhKLf4RnHjZB8LEr9WS89qaZx
AY+2hIpIuK6g5qqlnBeFPSFh5KkeKLaS8mYZ/DWxwx19W9ue+1aupG6XjXDD
OlxQmATlEZtVFHdnhenpbmec5GpIyC2uosLdPuQd3+WIK8GpAX25YtRRk8PK
qzIdUDAmFy9mLE6tZ/1lNR1wCiYSYlqNc+JUn5d5jbA7B9eFBDb0ET8esVzV
5MYBb3Z64ROxutXOEzeJNYb762Tmyfwel9l1xDIlBYddiReTP+N7Vw6GzQ85
Sn8Tp9pP/jp90IWDCzHhUfYL4pSBkzz/HScOCsKv+PoQi95ccLIgfnflgnUE
cf2J4nYZYitna8Uy4sDe5Mx0Rw50tdUfiC6KU9pK1y3pMxwI9zXVFxF7Gce+
eenAAdqqsxuIc72HrBKJfXglYb3EcTKLLXbE4/nxJkJL4pR4ZeWjcXsOWi6d
67ci9pc1yPx2ioPlnrY154lvleop1BJTZ8zSA4n3FEgmBRMX/7rHOZ94pFQz
Tox44udtxrXEq6vCWM/tOFDWVNrWTWwiy8RGE9tsWSc5QVzRzMhYE0fLr5he
Ij7bHJGwifj/p/2IjQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 0.17428552835630576`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560792041765625*^9, 3.56112980675*^9, 
  3.561728241890625*^9, 3.56178980278125*^9, 3.561982549734375*^9, 
  3.56204631340625*^9, 3.562068467921875*^9, 3.562351561234375*^9, 
  3.562354656515625*^9, 3.562465848534256*^9, 3.5629616628125*^9, 
  3.563086646984375*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdnAt8VNWdx68zmZBAgBBeERVGRRhfOChlU2sl1S6mRSS6uqTycYnvaFcb
NYtxaRusfkwt1LRrNbaNhlZsbLsaFdZoVx3Qj5tS1Fm0NPDxMdJWAyoGizpS
S+/e7znnP/dO5p4BP59u91E7k5l77/k/fv/neQwLL2xpuvSqC1uuuPjC+BnX
XtjcdMXF18Xnf+Va71L0IMc5qMlxnO1xh8+u99G8ud7/3St448r+P1+m/pQ4
qRZH/6+uy8m47lnqcsy/bP7XknKdhcOHOHVOV8Y9W12OOm6my6lrSalvpUEm
3i0343TVtTgp71u9oZLpqvN4ZrxvKaerK7Mo+GiLksU8esCURZBMV5f6zjef
bMppcfRzC/PGak0i6j1qJHKNjPtlpcgayc7Ksa8TzAx7j5CHGRAaTUbYKZ9j
rqVaFLh5lBndlcpXLNXijTP4FCG7yNjVxwY8NIuF5p6bySjY1T3tDsPw00oZ
NpfmQBIYFaucyjJC+VbmLLmMrP7lIs4zUd8y7q21Vu9n/3Xuj+EPH5wl6pnQ
AWNCro3+f/Lc/5QsFbxHalOplL7BJ/1Nvzd1dnauaGtr4+VE1HvpXZ2XX766
e+lSeW1cNncuYyPp5mTSKXnpq8cdl1kdj8srOtha3eBE915WOt9tdGrda5xa
J+J2OLURd6mzYpg8Mbu//G8y1/9F8+sUG60eHBzMWVlbvjRoZV6Ma29tbY2m
amtrnVh/Q00NtuW1d35pqVvv3Y+5K8jiO5+cNGn302OnKVbRPT+sONOJfrim
/Atum7OClyeEfq93eveeXPpstqas34mo99iez1RsYpyraiqvyiGErk1Fdh1z
zo+ckj2Hrvry7mkdVw/Fv/OVd+K3XxsZjN91vRPdOuepJYPxgRrFc4TdY+pD
ri06wOe0I8Yqh4aGBC1ezR0dHSYOoh3Nzc0ApECKqPfSbFlZmVIp6b1qHWfX
OVVVBESUSHBiL2+aPj2T8eLCvLZvnjrLY5zyQqLU7XSa9iyvWDV4ffVdvN68
/OCH3q6d8FIkUxvPOLHBZPWgD5Tj7qms+NgLudrkkBP79cmnb3s5ecnarcnL
H129tDu1bsHaTie6fl7Kk/KxM15rSieHanl5z/Me21u6r0wlYPPfUKVb6cRS
tW5t6Yo2z15e2LudtSk39ZdC+Ez1PiIxMDAgSOJzPAOWvfX19QbBmIdK3DiF
J1dlJc4nqWV977x561P69fLvpk+PpIe8y6MHs9XVOVwGneqXU9MvSaeSzds6
Z9w20Ja4f33bvNRAfWIAILfUHrNTQ6eatHI+e4xdeXU2NbmeSG7XxT/sB8rb
rnnYS4Orl2banJLHzni3AZB49de4NVGw8yxT7VbLZV6dTW6TE80HkhfR5r1H
y7JuNofMWKvvhQI+qK95zpMBxIaenh5xR0AEwnTSwySiRo0aSCQS4qJrli9Z
Qrq+v2fx4vsHFi9enVm69Jm3TzmlP1tT0+8CMkydkRk3Hk+5tbWb0nMu+Xnq
3O+t6VtyLwiubluaebLhtJ24XH9tTVYDWDLoYR8ED2m8y/W9ve6Vdzzf39yR
Ti1Z835vROFR0t3oNgpOeF1EQRgFTblsoCtp6HF7BDpPwP5j7KjoPnKUuBdB
CiZ9dXV1aI4b8TyuxfeehoYGg1rVsg233tqc7uj47ptXX+0lrLY+1xvjaT/o
ap8SNHrd+vpVg9etXJ1a2r2q57pNoPFg09k7UNtD3NVoRPnIJY+162goRnhG
8jRLuQ09/RmUQTFUbG91W/F6T+XSTNyNSzQKGL31br2BrbHb7RYsKofcobl2
LLaq9zmCBVpKosIbeFa8guvcr+vr65u/4fHHz9yzdm2D29MDDj1uQwN6Z10v
oXmD8BC+t7utrdyvc70x2cc3nJN6YBcKoqrngToEjUt4OKvrXqgrAJLptJIx
mXbTaNLc4XagH4qKQwAAYPC9p8Ft4H5ru9tuYieecf1Jwzw7Ci+q93EexzQx
gpZhCHAdbwEpEIt7fbnnyik07HSbmtDYq1YeBs7hfAYV7oESz5W52Sxa4e1o
isb9NTUKBa8U5KEASkiF/YJuICEh2qeTbpLvHc1uM/fre91esbvzRbvKz6v3
2RIA3Y2NjZ4oqkiSEnB61BVVlSiuV908NVrd9vZut7ERFYNOj6pNbmenqKqN
56uLl3tQKnXxfBxAVK3p71dyEbqogCoYFNWyZW4Z6gaNLC6u1DzHrma/eh9Z
ls1mUaW1vb0d1cSy4teN3d3dngj9Ef04hq13e3slxNFwyK2sFJdudLu70TKq
Hp+Mt3oguh6IOXsGFfQixvVAzNmSNI8SKCShTBjj2VyXXKZS/5fsyj2j3svp
0TyMe1EEG9JVoBg9Ge6s7Gc0q3a9Z41maINWaEfCkkBFe63ZGDTzMFOaoRGa
4aUeK9fDLM9smIQkhVYRv0egvqEUCql4bAwopPTRc8syqhR2wBXJvV5eqKZK
4Z7YRotUnnAHBvAyPHDATSRIvSI9NsFLHf3sBEBHTCqNGAbxPWTUdUkxiI9R
CC4CSgzCd9KJeNpldlv8u19qRQknghpOlM9c456RrCzpptPNbkcHKQIN0IQU
gmehoW6/q8AX/Akdry6p8MEW5EjBnvwI9mQAhBbhAZ7r3P9Hu+CP6WaL6MCB
iAzEDhOaoEZAETrtJpMdbnMz+Q3H0kKPw2lw+5RODwp5ECcMvA7Z9TrTQYlx
iW9QB22SPNZwrrFLvE5LTLONexPP1GxcHl9R7q6bolJgxjGAF6mHSeopp6Ak
UCUBIzka8ERiwB3AL8g6BCq9mwRpLkD/yS7pw76kNLDSXSAxknPdTLRGgC2B
iRMItkiOBgZ/rxXMqmSKOyvn8roYPnONe1gad0VEAnAg4SbwAvKJCr1/tov6
oAYMkTA7gYeoHvkmXEPjOQLsCD4CjtTBX75z3Ug5VkDFZwEVcPnOdQFUJMTs
5AzcQaXyr9sl/Ffd7dJ+ACDpAScl8znDxJOWDDABVVUjk9KIedIXoQSEAIhn
4pWEC7bGzgKeiPYNu2Q/1dgRKuRcJKOZxMQUHm3h0jDhSFj69mh8Dlloh0i1
FBTylxiVkEYuogSDIq9zi12oHg0XQiAMMU31o1jIdJVkL7Es0hh/rAASEYew
wILTXt+RBQ5EQBSxHgH7LbskazQ3ONNSAA8GxJAiCSWHwookFFziVCQBBAyG
JPgUkszavFMZS/yIv3wHlG/bJfmx5kaGkCqDREFM4IyFKIo0OgHPrsCDMQuu
w4vPn/rVWxmSVtA8YERq+I5dktW+M2Mdsi5hh7sYvWNwJgOACVYKWGckLRNY
4MBg88V/e3WApIRFSFTUAqzyveG19h51gflWL20evJHBKF/j9veLQ8A6oHwp
ZsAhKEM0qZf+4GnFMkKg6FkYrqoevtOueJcWgJxCr0Keoe3WApRQXcjVzB+w
hOFNcqNeU0kAfvnNazIr2rLtAd5kFvXw9+28f+DzlmkujYXBmyRBScbyNBeU
YaN8OZanhOGD951/5dCty17rlO6NCFDc77ZzvktzRlPhjBSGMy2LWJp6SjRI
zSUtADeWvufCn/Y9cM7eBjye1EQJWm1nqq1QgneTxrF3gCm2hZnYWvVNEVPo
Dd5g3V/TkHlo0W9ace6+OreO3HOvnan2uBIcmXSDY1P6hmmKjcFaJWbDlNaA
Xuf1aTOzz5zS1b1x7gcKX5IfcX2fnentvlfDkCRMIYv6hiWUMewwTUdgWALo
7QmnDLww+5dNOyftUyGs5o/32zl+V3Mkk2BM3Jj0r9UsETcipcHNMKP0YMu3
Jl7VM5DI1G2d+ecE1VBVvp/Zmek8EgVPMaJJBCWkcMDEklg0Yvoej1NfXePg
jsn3tA5VZqspanV9bt8Ddia3+RoRmGCIEaPmshcMJGZefA7w2XDqsv53xz3W
AB+xVa+dzyrfQci9KOR39yWghS7ohG6aT2zuxs3Z50/8l+4Py7cmt83YVYMT
Oo8MT24rNQ3IQRbyvgpRMQp/jfljszZvH0onH2rbW/pG/MnTtjeqDLbOLvy3
DCmvzcTsqtXU5EeSO6UhVh7mXaU4vDB7ffPHJW9XP7Qo3QY0j9qpf9Ng4Lku
iZl2HPnN1E2gITeqrtC7Onfj3nQ6mW78Y+z38d769R2VQ9nsY3YG7foaDkSc
qApsMhxtkkQlVwiAF49/pX5v6ZbkQ4t6u4lO5xd20roTieI2IKNKqha8HL/E
b2gW1fzTK4+bZ+2q/WDkxtpHFt7d6z3rOk/YSd+sr0ESzyQMJDtKvcBVqP8D
iWxyx+T/qN84dxnLFu5Tdqo36Ws4C1jwVzKRCPzj7KUXXNP54W3bp+6Lv3j8
c41bZy5O0xett1PVXWKUWg4MqsOP+LJuzZ4w866OgcvJaxtO3dL0ypGnZ8h5
JNwNdqo3qvcKHIK+RXUJrl6QeSR73sKNHT+Zuz2+b+r9i99sfu6kBWR7F1Cf
sVNs09eQT+bYkhLPyj7+8M6OWybtjH8w6c4rPmr+0T8sA3c933zWTlK37qNI
g6iu+nLvCtn38e6fzH8/8dtRP2h+/9Jlt/5okGJGG2eWZ0LJfU2Tk2CmdHLl
st6d39+TfLliY+OWuWc/+EIGydBX+ecvh2eEr+rQwdHFHDj2tppdM3bXPzX2
oo3P30tZF/V+ZRdnufZlmRt5gbfx8bp989+o3TZlQ/+yU89Mrd1D144xnefs
ZPQMrJyS+PNzW8792Xl/Om8gmU0M9DUnrhm67R7m9nTb+K5Zogslc4N2qVXX
rbxu86wnZ+FOq3o2XUdquLLvjlep29TvtJ3C9VoQSs+mOevmDFUOVaoFVla8
Busa19Uv+CMNporN/7STWaYFaVn58co9FW9XrFuwacHk7O4dhPpD3Yuoxmp2
+qKdQovJP15SQI2tMx+deeUd991BkXlu8KQFL9TN3gEqyr4v2clcq8mQwGU1
HICxF6ntle4jb3o1ccRewtfZYifTrB2GRC2LQTiMrIbcMHTLnTvqJr9wX+P5
e5HoN5qS2UGV4zf+URX/aEvY/UxXnZxuUUdQzGORELmu1nIxq6DbBSnyHVdF
tnV9C27flajaiYpbjVwxdb7FMcc35OSK6YuK3DOnV4oIdJUWiEKMMAglO1Vq
E6GtecXvGw/5xa/rjv0tPrQtJxCHcHLaegIAhghkv8fhnZbcsZswgb6s3kuY
9TAXo+PBivrREmS6v3lxxweJkdu/3X3tiy/n5NEYhMsTds/wNsdlNEjq+Rj0
Ltfs4IwESIJEpru5efnym9JnJPv21FS8dPrgE79+5QBQKQ+95x/W0RKUhCBi
ZMEs9GXMlTCX6RxXtrSseW/qmFe3t0+9k4L36gG4TFnoPfW5S51KioWIYc6z
EeCIwHSJrGPE+PEFF2z54PCRm58YOP3LlIrXjBglwyMmlnNMP4iMcQNoKImi
IVJcoh8N5geWxErEXoMUgaHdC8beeff7F135uj1DXORbmDmYZAgzgSX4vKSX
ffdr4770zez112+3E7pQXyPrggsTAVmEoB1gVrL+tHkfvnPv+GOXv3Pzzc5v
7aSWCnO3D1LM/oHYUKOYUOFuWHnLh7s2VFV9ffuNNzq/s1O7QFNjTsuEjxef
9eGvmKorXqX7bPrpP+zaXFX11U033eT83k5tiaaGPMiFfMipqbHeqKZEpPjJ
2R2739g2ZcqtDy5b9oad4Pk+bmQe/ppDB6XUcGRjeQSfZtd/zcolS960U2vQ
4mFCTCnQaYIjKOdAxzSRWfmW94455tkrTz5ZdWBFqP69poqHyXYlnqepluFt
sg3BFSizr/7C2bNn0+UOBggruuf6GBI+YKjWmDQ5lgjQWlatIbdh36mnQo62
aYddzr/ThHXr7CZIE6QLQ1gW8VUT4F1h1sEU55GrFi5kXXGnnfDZ+dmYWkrE
aMJRAUDteJsghjgLbzfcecstNLpv2YkvCk+y5fpRE4IajmHEz3xm7Voawbft
xBf6WVMqLVlzpH4Uk9EXqXbETCKF+KztmzfTqqqmvwiHM33Qg6XTiI+r4XKq
k4zmc5j80Y4dTIFUM/yOncMX/XwgGyuAZXSgIcNfVENvONBu0T0ypZCGwtll
51Dnp1PJEXweKeDp/MXSP0gZJjgmavA3t0n2rp3JfN/O0oyh0ij9qKQ1VmFN
uSgNcmAiIuYowuTz+flJOqsK/SiZBCZqpzCECYlA1hGH7ExOk7zuOxV5S3VM
o3zMmMiQDcEshBlXCA1ma7uH54jPaTKSFmGDThX5YKlZl9kcI0NicyHNjI25
zXt2Pebluy6AYZ3RIWCZLRkcCvllxSJoFacIp8/mc8L+ZNPR4WBZmAWt4/zB
zuwz4czG+NgRLwo7XbeitCpwYtVHWkIxjfpWhNunw7mZs11wgZuaAga4MaVi
mUO4ySq2+rbHzm2u73r4huxRqP3AseL7QyqpgSjIFuGK2VguUes779u5ztFc
8UBxeHEWpzKngMrTakpmCoPs0apvhmUuHfGtCMsTTZLxFJNAhnWApXIbMrgU
NcOVvS925oJcZWdZffvAzjWpuVJ/ZJcYmNWS7jjff+CoMrrK8hGm2aZLBUkC
QiH6oZ3RLK0CtYiCx4vP4/O9RuV0U0lYymPBUH/T77Lho74V4XasVgvwaApQ
C/XU1vx4ScuDeV5juLLMxfZJkGsu2fMta+d6tOaKXrINS7+jfHWCfh5vQVHl
Naag4aCs1wVZkmdwVNWpfTQ8Wc7QjGhrYQAjGKpl5Yl+UNCVyiqI4cUuHLzU
zoWZdcl2jvr2kV29I3XexTfo9jGhdF0APcnXUBZwTHGISgOgFpYNV9ZBWW5V
3/baucY1VxKAACsbSJhzcri6hjG1gZYvyDgP2j/aGR+mGcvGuuzVCtAHh6hb
4XPNFb1YCMhFuE7RpSBs21z2ZZ2Dw3U23POqSCzEgz+2c5/kcycNCNjBnXLn
0BDFR4eUlZifIIBbVcw/2VnrbFOOgsxmyH20ZXK6hpwI7CozHeaHMCVUAAhI
kUv8phjQGMiSbjEptN+MEikwvEiCGZCG2RDX6OWUOeI5jBUg6ujj2JCCEAtJ
zfuCopQERSG4o2ofbzSc4MgLHORINkelRCIcRKRSNUNHa4l0TrIIOTakZhjB
8orjnwsEc81/xHxUH+QFFhEMf5HTy4n8eiWZvTJXPPRMMr82/tluldlSPHrU
RrJsOVSGFApj77z2wrVTPkFTpuWT46t40riQYiBthZc2QEmdLFNEDhqeno/3
45NphExuq0LSvQEir/cqIBpa3BS6TB5AhL/jffJ4v8rwhjwTLiZeeudFWcFO
Xh89L8Gd5XwGmowPSeWmAYG06lFz0hchn8gnj1+CuKmPwYmckGe3gRMAPvmo
nbwujepEvpw2ZEo6MSQz+7N5P0EpIiV28tN96eWILBE2KYS8aSjktJwvfRHy
h+t4DJoWDdSMZHJIevfXDNQ5HJ9HkV9VTNM8AJ0FDM6EYGNQcqrtPAr9vsjP
KXWCjhH0yI8e8FLLDgeHZGl/eaJV7Y/m9DA8THU40B0K85vjgjFhy8y64JYC
hxyOIl9iYcwwxS5tYVSZHw9ZFqE1d+D0fz6rpLDvY+RJqh0gd5qIXCXGwwcP
M/4WLDkjbQHqSxq2PG+T1LrMrzYPqnwkkY/Y4LQVDkDm1n4XJZ+SV4PyFUZ4
WU6+sE0Mm3z2zZCwXkMdaJFFQpBEUjmMKlU9TNy8OY+iWP6XhXOYuLqxU8ea
5ES7nKgmCcmRX1XxVXk1nSCQAq0Pqy/nf4eD6mAdhQMgD5M6+aUMGUCOKAcP
UztHDReaqFK/6soJPdIIXbCnYnY/nGE/FJctrsLIV26KSPLSv1xCKKcMEb37
uSOj8uM4PILkeHROUtNnBvf18ySdGM5Mzfkial1XLZPmcDveRIHLrwRNFFTY
ImOUPeuepK/ldS0VNpetsNM5MYSO0TmvY9sfHd22RYFsOB2yEVnJpzPaTieZ
Q36sDfkio08YPppGi4bLHz3GPlqvW0TpLyGhvo3xMc1vHMYG6AQ6QZVE5GSS
TA0KkRxrl0K3fKoKkd9VQqq0IVlpp6N7O1Xfc+eUx9kwLUJHr3Tk+h11tnec
Dd1xdjoJE/OmqVT9xjibx1bZ6czU15Aj13+ZdrswCRaho7vHKLiAj+pCq2x5
abydzlEGC/MTGdWLj7fhXITOkfl2V7OcCbbMMMFO5wjfXnI2WegU4jzRTudw
H2eWVZS9JtpwLkIn7uOTm0xMtOE8aXhUTfW9OIeK6Y4LO51JdilMxyRHHxUq
hk7egol6erKdjlkRIT/kNiQMHXpDzun76Fbb6ZheU+ZAKt+YbrlwgliEjr5V
gtdwhBfd0PFgH+D8tvVgOymzvCYG5xwyZI2keYta+yNllhJAh04au6PpIfpR
2b3xSU2xk5IlXHMGnCOUnJI61Ib5IXZSOtvkfq2Qd7Lb+EfhrKQIPZ3E1V4h
tTzv0LbxW47d4uG+AQ6109PltVR+uya/7aBX4FrcZogiJMt9kqBGceIUPX+x
s8kVectUauBhw+NQ93sjGARmwV9VIavS2WSwvLUlRW1qUMDRkIOOvHA0cIMW
scCj6I65cz+JmmHLPHm01T9RwVh5ya+6oUNcHGNLPNPsGOp1o5BkXmSMaSUK
C2TcPsY0EMCGS/suc/h+x+Qtee5vzHH6WuFCwhH2MdKUFCwMHLnfMYUmKzLG
2Kew0Zk+3CGP9iXCMvqX31w7yk79aFuQFxkjbUuBx8ywj5npy5Y7A6HuzNzP
mIj+R2q8Twn7kzN8ifJz+/7HFPpwkTGmscnbvFF3jraP0WYKSXtF/pELaXwK
LKkd6JMeWZUFoU9wZNVIUFh4RYJic+j8fyNNru3vUKrJvIWl8LgcS/vyQjjL
gmOnalaqk1RI63d8jpF92SWfkZxvLThPGt45Fhaq4w9AtzKnYEki/wBp2MKe
9JgF6XbWJzZgbkWhy19XDGM5zRaFJxiWn2wJ44BOhk61RUrSHl1mTOEUtMgY
0wwVTjtm28eYhozMjeF9PE60jznE5psn2cdM8TGgemkH49qc/Y4prERFxpgO
ujD7fSowRg0xC+mF04gi/5iNmTIU1uC/sY/xN937SBk+wjX2MYGJVr6Xfto+
ZoI/JvfDIHXnZPuY8bYxn7GPqcr3GH/MKfYxslnnQY0+/pjP2seYxRNKa759
TrWPMcs+8qMj9U8qqTu19jGB5S68WfdjXPucfYx/oi6Ll6ETvZW6edpwR5Mz
JJ4DwEC3MFz7vJ2BXlzP/ZAYZyNtqJt/ax+m2312YXuCvwJWN8+wDzO/tQQ2
1Cfg5F+RyA3/QnB4OcPlX+dDOBRjCKgTq76FFwTHxYLjAMTvsRbZxVPvf6V/
+dM56L8AKSkVgA==\
\>"]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{"start", " ", "aperture", " ", "stuff"}], "   ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.560680912859375*^9, 3.560680922578125*^9}, {
  3.5606821936875*^9, 3.560682207296875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FWHMsee500", "=", "0.75"}]], "Input",
 CellChangeTimes->{{3.562143359578125*^9, 3.56214339121875*^9}}],

Cell[BoxData["0.75`"], "Output",
 CellChangeTimes->{3.562143366359375*^9, 3.562143412140625*^9, 
  3.562351561265625*^9, 3.562354656578125*^9, 3.562465848549881*^9, 
  3.562961662859375*^9, 3.56308664703125*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Rsee", "[", 
   RowBox[{"\[Lambda]_", ",", "AM_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"FWHMsee500", "/", "2"}], "   ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Lambda]", "/", "500"}], ")"}], "^", 
    RowBox[{"-", "0.2"}]}], "  ", 
   RowBox[{"AM", "^", 
    RowBox[{"(", 
     RowBox[{"3", "/", "5"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"CTIO", " ", "0.75", "\"\< median seeing at any Air Mass \>"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5485859768698206`*^9, 3.548585980525077*^9}, {
   3.5550468230625*^9, 3.55504689634375*^9}, {3.555046926828125*^9, 
   3.5550469329375*^9}, {3.5550469795625*^9, 3.5550469863125*^9}, {
   3.555047021421875*^9, 3.5550470303125*^9}, {3.555049293953125*^9, 
   3.5550492965625*^9}, {3.55992103646875*^9, 3.559921059546875*^9}, {
   3.559921971109375*^9, 3.559921985203125*^9}, {3.5599646165625*^9, 
   3.559964731265625*^9}, 3.55996478321875*^9, {3.560681095140625*^9, 
   3.560681135125*^9}, {3.562143371578125*^9, 3.5621434038125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Rgal", "=", "0.29"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "nominal", " ", "ELG", " ", "reff", " ", "val", " ", "at", " ", "i"}], 
     "=", "23.5"}], ",", " ", 
    RowBox[{
     RowBox[{"SK", "'"}], "s", " ", "formula"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5485213249326625`*^9, 3.548521328627976*^9}, {
  3.5503844733289747`*^9, 3.550384475351883*^9}, {3.55504714909375*^9, 
  3.555047164890625*^9}, {3.55541225896875*^9, 3.5554122804375*^9}, {
  3.5599212124375*^9, 3.559921217296875*^9}, {3.559968751296875*^9, 
  3.5599687768125*^9}}],

Cell[BoxData["0.29`"], "Output",
 CellChangeTimes->{3.560232271734375*^9, 3.56060339609375*^9, 
  3.560690055078125*^9, 3.560754329859375*^9, 3.560757351078125*^9, 
  3.560757979078125*^9, 3.56076267146875*^9, 3.560764982171875*^9, 
  3.560788236171875*^9, 3.561129806875*^9, 3.56172824196875*^9, 
  3.561789802859375*^9, 3.56198254978125*^9, 3.562046313453125*^9, 
  3.562068468046875*^9, 3.56235156128125*^9, 3.562354656625*^9, 
  3.562465848565506*^9, 3.562961662890625*^9, 3.5630866470625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rgalmax", "=", "0.41", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Steve", "'"}], "s", " ", "cut"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.560156451796875*^9, 3.560156472078125*^9}}],

Cell[BoxData["0.41`"], "Output",
 CellChangeTimes->{3.5485213295392866`*^9, 3.5485859618382063`*^9, 
  3.548750757577882*^9, 3.550384408896325*^9, 3.550384476964202*^9, 
  3.5504639217381344`*^9, 3.553620198796875*^9, 3.55504561225*^9, 
  3.55504716671875*^9, 3.555393063921875*^9, 3.555412377046875*^9, 
  3.558950058765625*^9, 3.559050263203125*^9, 3.559141353453125*^9, 
  3.559295283484375*^9, 3.559310522640625*^9, 3.559921233421875*^9, 
  3.559968324390625*^9, 3.55996878278125*^9, 3.5601558824375*^9, 
  3.5601564736875*^9, 3.560232271765625*^9, 3.560603396171875*^9, 
  3.560690055109375*^9, 3.56075433103125*^9, 3.560757351296875*^9, 
  3.560757979109375*^9, 3.56076267153125*^9, 3.560764982234375*^9, 
  3.56078823621875*^9, 3.561129806921875*^9, 3.561728241984375*^9, 
  3.561789802890625*^9, 3.5619825498125*^9, 3.56204631346875*^9, 
  3.5620684680625*^9, 3.562351561296875*^9, 3.562354656671875*^9, 
  3.562465848581131*^9, 3.562961662921875*^9, 3.563086647078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rrmsfix", "=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"16.5", "^", "2"}], " ", "-", " ", 
    RowBox[{"9.3", "^", "2"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.561791333875*^9, 3.5617913800625*^9}, 
   3.562351503484375*^9, {3.562354611375*^9, 3.562354612421875*^9}}],

Cell[BoxData["13.629380029920656`"], "Output",
 CellChangeTimes->{3.56179138415625*^9, 3.561982549828125*^9, 
  3.56204631346875*^9, 3.56206846809375*^9, 3.562351562*^9, 
  3.562354614015625*^9, 3.562354656703125*^9, 3.562465848596756*^9, 
  3.562961662953125*^9, 3.56308664709375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEff", "[", 
   RowBox[{"Rseehm_", ",", "Rg_", ",", "Rrmstot_", ",", "Rapp_"}], "]"}], ":=",
   
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{"Rseehm", ",", "Rg", ",", 
          RowBox[{"Rrmstot", "/", "56.73"}]}], "]"}], "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{"Rseehm", ",", "Rg", ",", 
         RowBox[{"Rrmstot", "/", "56.73"}]}], "]"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "Rapp"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.561790025390625*^9, 3.56179002653125*^9}, {
  3.561790070515625*^9, 3.561790168640625*^9}, {3.5617905983125*^9, 
  3.5617906310625*^9}, {3.5617907520625*^9, 3.561790754203125*^9}, {
  3.56179081953125*^9, 3.561790828484375*^9}, {3.561790923953125*^9, 
  3.56179095071875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ApEff", "[", 
    RowBox[{"0.3", ",", "0", ",", "Rrmstot", ",", "0.7"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"Rrmstot", ",", "15", ",", "35"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"rms", " ", 
       RowBox[{"(", "\[Mu]m", ")"}]}], ",", "\[Eta]"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.561790582953125*^9, 3.56179059221875*^9}, {
  3.561790643546875*^9, 3.561790656109375*^9}, {3.56179070390625*^9, 
  3.561790711671875*^9}, {3.561790761875*^9, 3.561790786953125*^9}, {
  3.56179086615625*^9, 3.56179087025*^9}, {3.561790960171875*^9, 
  3.56179096025*^9}, {3.561791059359375*^9, 3.5617911180625*^9}, {
  3.562068527703125*^9, 3.5620685666875*^9}, {3.562068605984375*^9, 
  3.562068632640625*^9}, {3.562068663359375*^9, 3.562068673703125*^9}, {
  3.5620687095*^9, 3.562068711703125*^9}, {3.5620687455625*^9, 
  3.56206875428125*^9}, {3.562068885359375*^9, 3.56206890540625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVynlczHkcx/HBQ2yiVEO1pB6lrONXMzXSNDOfTxQyMbFbmVw7ZlIkmxCx
OkaUo8iuaotSVtE2Okx0yKOki3LUWtqHVXMfdAhbu0v264/34/V4Ph5vx+0/
bAifSKPR1pF96TGbquk0GoXRQ1xB4FoD2KUYTJ0nUZhk+/DYi0ADVA05TF1t
QuFE80iZhLi/9ezEc2YUUrqevh/5BuAdiB6dZ0thidPxprIAA4w9XaAAJoV3
2X8dMl1pgN2nC+SJEgolYmN9A88AweNnNn1up3B9yNaaSe4G+C+3pktb5Iaf
8++pk80NMGp1qYPyckfBrPTn+4b1EJrPXPc61x3N5odGb36qB8eUYfXXUxhY
XFZnM3BDDzO3C+db72ZgS9a7fKcMPUTlGQ8m9TKQc08ab9ypB1lO0JsBPyZ+
5/toUZm/HugZIlOn60y8NafGf6WTHnSvctmddA8cYzlVCz/poM810Zp7xAMb
yq9NF/Xq4K7nMovyVx6o4M5m5VbrYMolW/sLazwx9uAvlE+GDuI+XX22vNwT
xbFTB8cjdRBUG1YgmcNChyV51FzUwUxv9anUVBbaRFpuOzxbB2MVNg6xr1no
wau/4vpWCwEpB9qehC7Fd1S0v0ubFhoFR21G7yzFhOHKxPQCLRTGyY5kLvTC
dvvCKNivhV2iKtqSLC8saeksCAvQgtBvu9u5f71w8kurXSaOWqiSsmMiIpZh
tbk37eN7DTBqG8JMupbhGtqRG9kPNZB9kx5R7O6NF8sGqtqKNBDxVdbxuove
2LJecmxFnAa2hDatzZrARnuhZ9KJQA000OgLtHvYmNIavs5ungYm7+E6e/3J
RqGN/7SQETXs67F4IOD5YEZz2pT97Wrg/2wmfVnqg3VNcQpjrhoC1t5UuVtw
sLx675MNMWqgHlARJ/ZxsJHnV5G8Ug1Hi7o/Cvo4SB9duINuq4aRWEeOYgUX
zwdVV8oGVfA0PyddW8FF78xUF3mjCv64V5d2cxYP9ZuqOzouqKC5tPJq8mEe
xu66/OhulArsBp/83qzlYWe3nM7kqSD7mzxZFx/Q8FYlbbRSQUJjeg6/FnB4
/6SaXo0SitNLN4RbIsb3Mw2aGiU43FbJ0vwQXfOEHdZnlSCYwbDUHkb0Cavp
VYiUkKn4ll8iQ1TxEkTPvJTQNktE39mHOPI9P7N5hhKq4qV6Cd0X5Sn2KrFS
ARUb48/dX+WLj1tnb11UqwBxeIrv1gRf3JOanCM/owB5YUy7hHh8QMgvJzZ5
tVkQRdzN9Bi/TlwawtpyiFgcqhcXEI+s0h46TxxgtsXtFLF04eqKVuJgl5jW
bcSFQ9PmuSX6Yv187gfTL/9FY1dZxHs3Mq5NJvaLVC/mEOfudNlEI9b332EH
EO9wtWr6cFoB7t3RIWJio8XomX7iRvnj9Gxi2iW98y1iy7f11vnEH24bn1cQ
S5Zcy/uVOLFy4NRvxFOLk65XEq/Gv4cvEwdlM1oeEis7ZzacJi7qmRvYTXzy
pV3MCeL35qY9L4g7Hzg7JRPnpCn7NcSLV/icjCM23n8U8YZY0LWKs5eYM6F+
cITYfGnwUBRxBrfkwD/EB4+Ki3YQ98X/9PEzsfRKbLCI+H/AjVI5
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\[Eta]", TraditionalForm]},
  AxesOrigin->{15., 0.55},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{15, 35}, {0.5482641858007897, 0.7906858012861285}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.56179071234375*^9, {3.561790766765625*^9, 3.561790788546875*^9}, {
   3.561790876390625*^9, 3.561790902*^9}, {3.561790955375*^9, 
   3.561790961375*^9}, {3.561791066265625*^9, 3.56179107290625*^9}, 
   3.561791121703125*^9, 3.56198255115625*^9, 3.562046314828125*^9, 
   3.5620684694375*^9, 3.5620685720625*^9, 3.562068614921875*^9, 
   3.562068675609375*^9, 3.562068716234375*^9, 3.562068757*^9, 
   3.562068916296875*^9, 3.5623515635*^9, 3.5623546580625*^9, 
   3.562465850096756*^9, 3.5629616644375*^9, 3.56308664921875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ApEffvsrms", "[", "rms_", "]"}], ":=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"2", " ", "Pi", " ", "r", " ", 
     RowBox[{"MoffM2", "[", 
      RowBox[{"r", ",", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"rms", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"rms", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}]}], 
      "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", 
      RowBox[{"1.8", "/", "2"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.55504988059375*^9, 3.555049882484375*^9}, {
   3.555049932875*^9, 3.555049933484375*^9}, {3.555050087921875*^9, 
   3.555050099375*^9}, {3.555051252640625*^9, 3.555051266875*^9}, {
   3.5592953664375*^9, 3.559295381703125*^9}, {3.5592954185625*^9, 
   3.559295544328125*^9}, {3.559295589109375*^9, 3.559295597921875*^9}, {
   3.55992225578125*^9, 3.559922338203125*^9}, {3.559922391421875*^9, 
   3.559922404609375*^9}, {3.55996483903125*^9, 3.55996484146875*^9}, 
   3.5599700621875*^9, {3.560754499375*^9, 3.560754500203125*^9}, {
   3.56075454334375*^9, 3.560754687078125*^9}, {3.56075482796875*^9, 
   3.560754898046875*^9}, {3.5607550179375*^9, 3.56075502290625*^9}, {
   3.56075536178125*^9, 3.560755386296875*^9}, {3.560755421734375*^9, 
   3.560755456875*^9}, 3.560755612421875*^9, {3.56112915796875*^9, 
   3.561129161078125*^9}, {3.561129450921875*^9, 3.56112945603125*^9}, {
   3.561129509375*^9, 3.561129509921875*^9}, {3.56112965396875*^9, 
   3.56112966465625*^9}, {3.561790840625*^9, 3.5617908484375*^9}, {
   3.562351506609375*^9, 3.562351507671875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ApEffvsrms", "[", "rms", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"rms", ",", "10", ",", "30"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"rms", " ", 
       RowBox[{"(", "\[Mu]m", ")"}]}], ",", "\[Eta]"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.559295553765625*^9, 3.5592955559375*^9}, {
   3.559295610890625*^9, 3.55929563959375*^9}, {3.560754856671875*^9, 
   3.560754857015625*^9}, {3.561790853140625*^9, 3.561790855234375*^9}, 
   3.562068862234375*^9, 3.5620689285625*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVyn8w1Hkcx/FNP6hREZVK6Ppid9GuH2uzdn3ezZorkTWcqSzK9gP9UKfs
XTmlUKm00p0QOk4/LmlCjTib0ElLaimhUmq/PyQRsafCffrjNc95zLyWKfYE
bjNgsVj+eN+bZFE2m8Ui4OzwwFhfGIMWJ/fOIqYSwJzIPqXGLhuwMVozg4Cr
b2QLVNhvGlQG6cYE8JPfLXDB9orbrbdeREBFWuhzZSiD/tOye5ALAaE1HiRL
zqBdpy7eOryVgHa7lua5GxgUPHFaPtlIwNtdM59ZBDLoa86dR1ShLXSro8VN
3gzqtxedC4uxg0FHmd97IYNuiLfltgvsISdizL+byyCpUc9D4Rw2fOv/MC6x
ZBBxv2wtu4MN7qMDKvs5DOp0fzbAKudAh2f4X9ETNApzLuh4kcoF06bo+7Ef
aeRkWW/+Y6ADxAR5ch1e00irFsRlOTiC1e6npctbaFQrm2AfHHUEk+AuXpua
RonRe23C1U4wNnCsMqqERmYiVzH3jxUQVTpns9sFGg198S1OCefBpwrD31pS
aRRUGXJxqyUfrNuPWqUoaWTuoTt5/DgfzucvLbbfQqOvNy1sYvv4YOas51QE
0MgvOe7Bk/XOMGtUv8ZZTKN6WYKFvtoZ7vjIrtezaVSkLIk/y3UBsdX07VIz
Gu2OKGM5ZbrApsHueM04hUK9Fbz0Ly4QuOGFYVQvhW4fFe2NjHSFhNuGe/tb
KeRWqQ6Z8cgVeCsPJZ5XUyinfH7kZb4b8EZWXwm/SqEdMzNTqnLdwFV7IFaf
TqHN62vXZU4RwBn5sQTtQQrdY81nUzECmLSK8IlXUMgoRkIIuwTQv/AM13st
hZRtJhqZlzuEbLCy2uRKIf/fjY++vOYO+9yDFOLFFPJbV/6ObyKE44KZV+MM
KOSsWRF5bJ8QQvcV3J7XR6LEwtZvstdC+Gn8hxyxlkQjscvEPdKV4GaTd6jr
Dome5melUTdXgodxSzEnn0SddVUnyhd4wPZFSXqDFBI1XCu9dOSgBxQNHp62
fBeJln588rSe8oD92e8rXwaQKIdzoeSRrwikqs5ukZBER+6lZflWikC0etag
yxISyZYEX9IQnmBbKFHvnNQhacwDuWmqJ6TIs1+FkjpUYKkgmkc8YV7BB4Js
1CG7+iuZ/nIxuJH/dC+/oUMZTnXc1rti6DXRQ+M5HYoanqZ9yJVAq3tA2Gel
Dm0tHbJJVUngcUNnxIhchzQao6TqbxJQJH8yTfbSoRhpT/pD7KFo1clE7HnV
lfnt2PvrHKcmYG8s2VE1iI2at32Ow2ZUzZ+IcQn4SLXtkdiGwemb07BHa9Iu
+GJ7v17oFT4hgbyvuYTZ9//6Qd+d2F6rOHlzsU8/adz4K/bw2K35xthttQfi
MrAL7mtmTMdWFL243oA9u2aAGZXo0JHoi0t4kxIQ+liXdGETb3/hiLEz7hXa
PsduDAkQ+mCbF9vmt2Gb+E0J2oJ9qpOjasb+c8WWk+exI3Idfr6L7X3FM6sI
e2rJtd4qbMba/HIptpbPUVRg80z/rW3CnpZBBN3Ebk3Ne9yBvX1PQdN1bKWB
8hWJra9Z6v039uJ4/74h7Lqk7OpL2HeH7cYmsaurzAWF2P8DqQ1W2A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\[Eta]", TraditionalForm]},
  AxesOrigin->{10., 0.64},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{10, 30}, {0.6325236355531483, 0.7614650613391963}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562465854909256*^9, 3.56296166928125*^9, 
  3.5630866541875*^9, 3.563152670921875*^9, 3.56315283378125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVyn8w1Hkcx/FNP6hREZVK6Ppid9GuH2uzdn3ezZorkTWcqSzK9gP9UKfs
XTmlUKm00p0QOk4/LmlCjTib0ElLaimhUmq/PyQRsafCffrjNc95zLyWKfYE
bjNgsVj+eN+bZFE2m8Ui4OzwwFhfGIMWJ/fOIqYSwJzIPqXGLhuwMVozg4Cr
b2QLVNhvGlQG6cYE8JPfLXDB9orbrbdeREBFWuhzZSiD/tOye5ALAaE1HiRL
zqBdpy7eOryVgHa7lua5GxgUPHFaPtlIwNtdM59ZBDLoa86dR1ShLXSro8VN
3gzqtxedC4uxg0FHmd97IYNuiLfltgvsISdizL+byyCpUc9D4Rw2fOv/MC6x
ZBBxv2wtu4MN7qMDKvs5DOp0fzbAKudAh2f4X9ETNApzLuh4kcoF06bo+7Ef
aeRkWW/+Y6ADxAR5ch1e00irFsRlOTiC1e6npctbaFQrm2AfHHUEk+AuXpua
RonRe23C1U4wNnCsMqqERmYiVzH3jxUQVTpns9sFGg198S1OCefBpwrD31pS
aRRUGXJxqyUfrNuPWqUoaWTuoTt5/DgfzucvLbbfQqOvNy1sYvv4YOas51QE
0MgvOe7Bk/XOMGtUv8ZZTKN6WYKFvtoZ7vjIrtezaVSkLIk/y3UBsdX07VIz
Gu2OKGM5ZbrApsHueM04hUK9Fbz0Ly4QuOGFYVQvhW4fFe2NjHSFhNuGe/tb
KeRWqQ6Z8cgVeCsPJZ5XUyinfH7kZb4b8EZWXwm/SqEdMzNTqnLdwFV7IFaf
TqHN62vXZU4RwBn5sQTtQQrdY81nUzECmLSK8IlXUMgoRkIIuwTQv/AM13st
hZRtJhqZlzuEbLCy2uRKIf/fjY++vOYO+9yDFOLFFPJbV/6ObyKE44KZV+MM
KOSsWRF5bJ8QQvcV3J7XR6LEwtZvstdC+Gn8hxyxlkQjscvEPdKV4GaTd6jr
Dome5melUTdXgodxSzEnn0SddVUnyhd4wPZFSXqDFBI1XCu9dOSgBxQNHp62
fBeJln588rSe8oD92e8rXwaQKIdzoeSRrwikqs5ukZBER+6lZflWikC0etag
yxISyZYEX9IQnmBbKFHvnNQhacwDuWmqJ6TIs1+FkjpUYKkgmkc8YV7BB4Js
1CG7+iuZ/nIxuJH/dC+/oUMZTnXc1rti6DXRQ+M5HYoanqZ9yJVAq3tA2Gel
Dm0tHbJJVUngcUNnxIhchzQao6TqbxJQJH8yTfbSoRhpT/pD7KFo1clE7HnV
lfnt2PvrHKcmYG8s2VE1iI2at32Ow2ZUzZ+IcQn4SLXtkdiGwemb07BHa9Iu
+GJ7v17oFT4hgbyvuYTZ9//6Qd+d2F6rOHlzsU8/adz4K/bw2K35xthttQfi
MrAL7mtmTMdWFL243oA9u2aAGZXo0JHoi0t4kxIQ+liXdGETb3/hiLEz7hXa
PsduDAkQ+mCbF9vmt2Gb+E0J2oJ9qpOjasb+c8WWk+exI3Idfr6L7X3FM6sI
e2rJtd4qbMba/HIptpbPUVRg80z/rW3CnpZBBN3Ebk3Ne9yBvX1PQdN1bKWB
8hWJra9Z6v039uJ4/74h7Lqk7OpL2HeH7cYmsaurzAWF2P8DqQ1W2A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\[Eta]", TraditionalForm]},
  AxesOrigin->{10., 0.64},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{10, 30}, {0.6325236355531483, 0.7614650613391963}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Input",
 CellChangeTimes->{
  3.559295557515625*^9, 3.559295602140625*^9, 3.559295641765625*^9, 
   3.559310529234375*^9, 3.559922343296875*^9, 3.55992241025*^9, 
   3.559968340796875*^9, 3.560155891671875*^9, 3.56075485853125*^9, 
   3.56075490346875*^9, 3.56075507240625*^9, 3.560755472296875*^9, 
   3.56075561825*^9, 3.5607573524375*^9, 3.560757980234375*^9, 
   3.560762672640625*^9, 3.56076498334375*^9, 3.560788237359375*^9, 
   3.561129468640625*^9, 3.56112951825*^9, 3.561129677234375*^9, 
   3.561129820453125*^9, 3.56172824740625*^9, 3.561789808015625*^9, 
   3.5617908611875*^9, 3.561982556*^9, 3.562046319765625*^9, 
   3.562068477890625*^9, 3.562068868734375*^9, 3.562068934765625*^9, 
   3.562351573625*^9, {3.562354663*^9, 3.562354683796875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVyn8w1Hkcx/FNP6hREZVK6Ppid9GuH2uzdn3ezZorkTWcqSzK9gP9UKfs
XTmlUKm00p0QOk4/LmlCjTib0ElLaimhUmq/PyQRsafCffrjNc95zLyWKfYE
bjNgsVj+eN+bZFE2m8Ui4OzwwFhfGIMWJ/fOIqYSwJzIPqXGLhuwMVozg4Cr
b2QLVNhvGlQG6cYE8JPfLXDB9orbrbdeREBFWuhzZSiD/tOye5ALAaE1HiRL
zqBdpy7eOryVgHa7lua5GxgUPHFaPtlIwNtdM59ZBDLoa86dR1ShLXSro8VN
3gzqtxedC4uxg0FHmd97IYNuiLfltgvsISdizL+byyCpUc9D4Rw2fOv/MC6x
ZBBxv2wtu4MN7qMDKvs5DOp0fzbAKudAh2f4X9ETNApzLuh4kcoF06bo+7Ef
aeRkWW/+Y6ADxAR5ch1e00irFsRlOTiC1e6npctbaFQrm2AfHHUEk+AuXpua
RonRe23C1U4wNnCsMqqERmYiVzH3jxUQVTpns9sFGg198S1OCefBpwrD31pS
aRRUGXJxqyUfrNuPWqUoaWTuoTt5/DgfzucvLbbfQqOvNy1sYvv4YOas51QE
0MgvOe7Bk/XOMGtUv8ZZTKN6WYKFvtoZ7vjIrtezaVSkLIk/y3UBsdX07VIz
Gu2OKGM5ZbrApsHueM04hUK9Fbz0Ly4QuOGFYVQvhW4fFe2NjHSFhNuGe/tb
KeRWqQ6Z8cgVeCsPJZ5XUyinfH7kZb4b8EZWXwm/SqEdMzNTqnLdwFV7IFaf
TqHN62vXZU4RwBn5sQTtQQrdY81nUzECmLSK8IlXUMgoRkIIuwTQv/AM13st
hZRtJhqZlzuEbLCy2uRKIf/fjY++vOYO+9yDFOLFFPJbV/6ObyKE44KZV+MM
KOSsWRF5bJ8QQvcV3J7XR6LEwtZvstdC+Gn8hxyxlkQjscvEPdKV4GaTd6jr
Dome5melUTdXgodxSzEnn0SddVUnyhd4wPZFSXqDFBI1XCu9dOSgBxQNHp62
fBeJln588rSe8oD92e8rXwaQKIdzoeSRrwikqs5ukZBER+6lZflWikC0etag
yxISyZYEX9IQnmBbKFHvnNQhacwDuWmqJ6TIs1+FkjpUYKkgmkc8YV7BB4Js
1CG7+iuZ/nIxuJH/dC+/oUMZTnXc1rti6DXRQ+M5HYoanqZ9yJVAq3tA2Gel
Dm0tHbJJVUngcUNnxIhchzQao6TqbxJQJH8yTfbSoRhpT/pD7KFo1clE7HnV
lfnt2PvrHKcmYG8s2VE1iI2at32Ow2ZUzZ+IcQn4SLXtkdiGwemb07BHa9Iu
+GJ7v17oFT4hgbyvuYTZ9//6Qd+d2F6rOHlzsU8/adz4K/bw2K35xthttQfi
MrAL7mtmTMdWFL243oA9u2aAGZXo0JHoi0t4kxIQ+liXdGETb3/hiLEz7hXa
PsduDAkQ+mCbF9vmt2Gb+E0J2oJ9qpOjasb+c8WWk+exI3Idfr6L7X3FM6sI
e2rJtd4qbMba/HIptpbPUVRg80z/rW3CnpZBBN3Ebk3Ne9yBvX1PQdN1bKWB
8hWJra9Z6v039uJ4/74h7Lqk7OpL2HeH7cYmsaurzAWF2P8DqQ1W2A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\[Eta]", TraditionalForm]},
  AxesOrigin->{10., 0.64},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{10, 30}, {0.6325236355531483, 0.7614650613391963}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562465854940506*^9, 3.562961669359375*^9, 
  3.56308665425*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"AMloss", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "0.595", ",", 
    "\[IndentingNewLine]", "370", ",", "0.614", ",", "\[IndentingNewLine]", 
    "400", ",", "0.679", ",", "\[IndentingNewLine]", "450", ",", "0.770", ",",
     "\[IndentingNewLine]", "500", ",", "0.824", ",", "\[IndentingNewLine]", 
    "550", ",", "0.846", ",", "\[IndentingNewLine]", "600", ",", "0.855", ",",
     "\[IndentingNewLine]", "650", ",", "0.883", ",", "\[IndentingNewLine]", 
    "700", ",", "0.917", ",", "\[IndentingNewLine]", "750", ",", "0.943", ",",
     "\[IndentingNewLine]", "800", ",", "0.963", ",", "\[IndentingNewLine]", 
    "850", ",", "0.976", ",", "\[IndentingNewLine]", "900", ",", "0.985", ",",
     "\[IndentingNewLine]", "950", ",", "0.991", ",", "\[IndentingNewLine]", 
    "1000", ",", "0.993"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.559231316546875*^9, 3.55923140784375*^9}, {
  3.559231925328125*^9, 3.559231999671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SNrms", "[", 
   RowBox[{"\[Lambda]_", ",", "dfib_", ",", "Rg_", ",", "AM_", ",", "Rrms_"}],
    "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"AMloss", "[", "\[Lambda]", "]"}], "^", "AM"}], " ", 
   RowBox[{
    RowBox[{"NIntegrate", "[", " ", 
     RowBox[{
      RowBox[{"2", "  ", "Pi", " ", "r", " ", 
       RowBox[{"MoffM2", "[", 
        RowBox[{"r", ",", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"MMEG2", "[", 
           RowBox[{
            RowBox[{"Rsee", "[", 
             RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
            RowBox[{
             RowBox[{"Sqrt", "[", 
              RowBox[{
               RowBox[{"Rrmsfix", "^", "2"}], "+", 
               RowBox[{"Rrms", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], 
          "]"}], ",", 
         RowBox[{"BetaMEG0", "[", 
          RowBox[{
           RowBox[{"Rsee", "[", 
            RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{
              RowBox[{"Rrmsfix", "^", "2"}], "+", 
              RowBox[{"Rrms", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}]}], 
        "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", 
        RowBox[{"dfib", "/", "2"}]}], "}"}]}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sqrt", "[", "AM", "]"}], " ", "dfib"}], ")"}], 
    "                  ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"S", "/", "N"}], " ", "ratio"}], ",", " ", 
      RowBox[{
       RowBox[{"assumes", " ", "sky"}], "-", "limited"}]}], " ", 
     "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.555050136703125*^9, 3.5550502555*^9}, {
   3.55505030340625*^9, 3.555050315109375*^9}, {3.555050443125*^9, 
   3.55505048015625*^9}, {3.555051500265625*^9, 3.555051529234375*^9}, {
   3.555051589640625*^9, 3.55505160484375*^9}, {3.559921476890625*^9, 
   3.55992150384375*^9}, {3.560156807328125*^9, 3.5601568129375*^9}, {
   3.56015684421875*^9, 3.5601568544375*^9}, {3.56068187153125*^9, 
   3.560681947765625*^9}, 3.560690346703125*^9, {3.56075583040625*^9, 
   3.56075585928125*^9}, {3.56079271296875*^9, 3.560792752296875*^9}, {
   3.560792815625*^9, 3.560792819046875*^9}, {3.56079286734375*^9, 
   3.560792868140625*^9}, {3.561129117359375*^9, 3.56112912965625*^9}, {
   3.56112923796875*^9, 3.561129240875*^9}, {3.561129367109375*^9, 
   3.561129367546875*^9}, {3.561129856421875*^9, 3.56112993059375*^9}, {
   3.56112998384375*^9, 3.56113001575*^9}, {3.561130094953125*^9, 
   3.56113011196875*^9}, {3.561130373375*^9, 3.561130386390625*^9}, {
   3.561130609765625*^9, 3.5611306154375*^9}, {3.562351508390625*^9, 
   3.5623515090625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SNrms", "[", 
  RowBox[{"850", ",", "1.8", ",", "Rgal", ",", "1.0", ",", "15"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56113023390625*^9, 3.561130243609375*^9}, {
  3.561130342609375*^9, 3.561130358734375*^9}}],

Cell[BoxData["0.40083100640119695`"], "Output",
 CellChangeTimes->{{3.56113036328125*^9, 3.561130390953125*^9}, 
   3.56113062028125*^9, 3.561728247546875*^9, 3.56178980815625*^9, 
   3.561982556125*^9, 3.562046319875*^9, 3.562068478015625*^9, 
   3.56235157378125*^9, 3.562354663140625*^9, 3.562465855034256*^9, 
   3.5629616694375*^9, 3.563086654328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SNrms", "[", 
    RowBox[{"850", ",", "1.8", ",", "Rgal", ",", "1.0", ",", "Rrms"}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"Rrms", ",", "10", ",", "30"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"rms", " ", 
       RowBox[{"(", "\[Mu]m", ")"}]}], ",", "\"\<S/N\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56112943346875*^9, 3.561129445*^9}, 
   3.5611299475625*^9, {3.561130135078125*^9, 3.56113019715625*^9}, {
   3.5611302545*^9, 3.561130323609375*^9}, {3.56113097028125*^9, 
   3.561130976078125*^9}, 3.562068951703125*^9, {3.56206900175*^9, 
   3.56206902975*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVzns0lHkcBvBhC7UlFZHYtPvShDEzGNMY4/st1akIZcumdEHJbUhLbbZW
qeSWWZUkSqJB6WC2cyJaQ6mxHLqYed/pYmeVo7RdWFHC/vzxnOd8/nnOsygk
dsMufRaL5Usy2SkWNTNZLApPShWjldFasDz2ejr1DYXFHUWXk4hr3tsYrTag
8I1iCq4h/rslW182g8JIJW/3yygteCbEDC+cT2GXsGXTfOKRh2wdOFPIvdDU
mRKhheiMS3/8FkZhhZ+5TcBuLWwcz9wy8YDCH1TX3J5u18Jo/q323mJbLHQq
MpKu18K/i91PB0vtkPftzKpELy3c8NhVoBYsxjO2Mrm/QAteRjqV0JiNXzU3
7X621QJ1t2Ytm2aj4co6DmeeFhi3rvcsxRKcVbh40HKqFoL5l+mnafbY9XHR
cOsgAxyrZtNVGxwwI6p9hqiHgYcNgoQ8B0ek9ALjlZ0MKP3G2Qc/OaLOOHOZ
yZ8MJEfE2Wxr4KCVMqB/eSUDc91dPOzPOqG9c4Lh8fMMDHzxvnZ8GxdLdAIj
+QkGAmqDLoVZ8dB47ePb9XsZMBW9TE9N5eHK6K3y+q0MjFZZ2MT383CoIyy1
YTUDPscS7ncG8tHhmWAsyZmBZr9DFsP1fORbWIdEWjNQkliZ9Lu9M8oUV9bN
N2AgZmcNi5PrjGvEEa6d72jYuiKEK/vijGcdp5ndpGm4edQ9LjzcBdN6qjN+
bKTBtbYhyKDdBW3feu7kl9OQrzALv8pzxVjuWyUnh4bIabnH6wpcUeWaVdR2
gIYdgcp1uXoCtGy/3X1/Bw2NLDN2r1SARd0xstBVNBhJJZRQK0AX5a5PNo40
JD42afXzdMOTh61HfebS4HtmxtFnFW4YGnvjxfQRDfisU/TwTIQ4rfC53fIX
GuC3OoWf2CdE3vTPV17d1UBy8aOvft1CDLrnqK8r08BQ/CIPnddS1K9it8ae
0sCTi3lZvVVLMX+iZ+TQXg0wTXUnFfNE2Ffx3SnhJg20VFSXHjkowlUT/BcS
sQas33U+ae4VoWLl2FC5tQbyl1yobPd2x8hZ3PHneho40piV513rjrKpcvMD
PWrwW7CxtJUSY7c8I+yne2rwkt7fMjtNjAZdcS7zytVw2SqEahsSo0gRPUeY
rga7Znmu7xYPTC61jXSJUUMOp8n+0R0PTC3rmyj0V8OewSkPVfYSlEv39Qfx
1RBWPWCTli1BurEv0NRUDa2tRin1XyXYY2eSafdfF0i9dDIVseh12K3viefU
115UE5+bU/vyO+LNlZF1H4iD87dLzIn7sts+UmMSjD9c+s6Q2HCjbEcWcfZ5
0/WvB7tgRbe557ZxCQqoZLPrxH2BH7yjiM+rlMvKiDM7H2w+QOyg1peWED9W
/pKQQ6yjUloKiENKnl5vIc7J+3V/FvGRiEsLuBNkT7uBkRJT/+xf4kE8PJA+
NYr4QZC/cA3xaHwTP5zYxEcvIJRYVcZN305c5BSafo74TL++2H/yn1ycV0K8
39Mt3Gfy30LTq9XEV0b2nF5NzJ19T/kXcW9xWz8SP0or7KCJv+SMmUuIE/UT
n78i3vyGs0JEbJnk2z9AbFweHCcgvjNo93li0h2ZBXzi/wGhR1iD
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{10., 0.35000000000000003`},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{10, 30}, {0.3429683712777071, 0.41288327770391975`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56113030009375*^9, 3.56113036121875*^9, 
  3.56113080803125*^9, 3.561130989140625*^9, 3.561728252890625*^9, 
  3.5617898130625*^9, 3.561982561*^9, 3.562046324640625*^9, 3.562068482875*^9,
   3.56206895796875*^9, 3.562069010328125*^9, 3.562069047421875*^9, 
  3.56235159315625*^9, 3.562354668015625*^9, 3.562465859815506*^9, 
  3.562961674265625*^9, 3.56308665934375*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzNXAusnEUVnt69u3vbeykUEIqIVjFISAEDSFuglofCIqCowaIgUgqxFYFa
FoMFTVHeFnkqVBYqyPvZpgQESxZBKyhQUmhAHrkpEQoKEiFESiDXPefMmXPm
/LP//j+3JDTt3r2zZ2a+Oa/vzMz+PWRWc85xJ8xqzp09a9IB82fNmzN39smT
9j9pfqepMsa5MXOccysnOXg/0nnrX0Y6f0fmwotzW8OPygh+1nl3UM/WvtA6
hK2VSevWvblwydWPzrv1ltVuelJyEFv7N3nrrfV3nrbg3pEZ0xcPzzzshozw
njRi57Xtmo7+9OFrf+df07UROn5GzRXVPOK+4Lu3uW/oPuBco+WGvZwe3rdP
6dq1X3XtMfNGbrjVcPrPjPNWP/3dI26GBb9x0IFL3K23XGVndtOsyvfyWMJg
zXZnUmiruREG2GkLS2m2p/j5NXwv5zEOOxzNd0M5Pz/1HereNz3l7vjLeN+t
4VrDI4c+9OCw22fy5M5i5sOy3dq1q7tNO7XXqhutYVdXVmm2Y1XjkprKqMNt
1x6Gny3X8P2hncZDfH6ptW59q4npaJlD4OBgRTdjp/07w+3qLluzPm8qvTx0
7emJ5dWMu0MbOyKO7dVGxq8HS8TzEdapiX6p8Ul943Uo4roWHT0tjJUzT6F1
kR77xXN030FULw+th7fTwe/TlEn48/708Lth88bbr137Bsfc/768X8vdMP+L
HHDoBHnTFVpeH6tVzR+SgkozU/x6SY4mL7beaqYP/N6fmGMXkofIgwSDppx5
2CXurL0Y09jgykUX3jUc+xiczp/eZ/bgxfqYCNkix2ensZfaPnGiZfyy3gkc
jvAP3BjcOTN8r+kLrbkSHFCy/VSf+kDOKjcYp3tuoJQyLr87Zkuckvx6s4H1
69/TEQsqwOWFUGJ37I2gmJ9XLOeIwQEXs22WrMcqS3bnnd3zyD70x3VV2PMV
5e6ErwNQfayafcxtTLHIQWrqSglEGa3s2cXhtWNk4cceuxuPwU6uTCQB5UGJ
dj2YvH69555MY+y96vGXODtAaoQU6fGn587Dta3KyNy2mVXc+zQAlISZMN1V
M5UPRT0AhuK7NAA4/Y1nLFwROb11PLBGZgBKB9WJr7/+dsY9to4Sc6zaERU5
/oNOtdPw6q3jkptx8kP5VqeRTaDJjdRsK7NOFLZMVdV1zmpyzjFW5etzbP2J
wJtsT0wDhG2CIYZIRLmYDz1VXxBmkiNS3twkYDVWq9WFAHPnyyzznRzP2iZv
mYOllilpX2RoifVo2ZZj+j7AXH6NW8IPeOO2gpeBzGJQqQRsk3I2M/7V6VPl
tXhRyRq+a9hzfFhr6YxGa9m4vP+p32mLsBkZyuZ4FdMfYBHidEPh3eBHsi31
KVX/ujD869w5S4Euqwlp2stPjC3UaPo0RWqRzS38rpgB1Zwyk3pPpqh6a+FQ
GetkS+QiU2WstW94t0+ibXtKILqCvPyCRQ8B03TSV6yPCWaPwUA6E0fh1JLq
wNOBCrXApu24hMDFk0I2Tdb7NJwN3dy5+srpYjtCBsnznlOad/OWac6ypWvc
FkFKH9Mgt75B3YBa4BgHuq37+td+P3XNU6+4b1nh/5CwdUQgZjfTwvXC5yy+
4pGMcQ63wq8J+vZJJy6P0H/HCv+bhAEjY4afiPkIi/lVEoaRYEQQhhmQZI60
wutIGDAuOefsBxg3rMEdZWGsE9VlypLvWeGXs6qDThDD7mgr/BIJX3jpJSsZ
AsBB1c2ymF8kYTACGCNS3WwrvJaEobIAM7PqPv/cs6+5Yy0ML3zq9detyvDz
cVZ4WCyotzbQ2X3fwniBhGFa3t8DHIDl5ljh50n46HvufoYtGLzOn3z6GE8c
Bpr2kP14L6Hru8wQPogrYZHPiX+AL/MiwVDueA9lK5e3L7FQdFESsqXlvkhW
lfWI6VnCZDdPh9+/4nn3Q4+pnruDJEofFycus49XtaBM/Y+sU4c69QSZOmff
zlPrtpyzDZy6CsOuyWYX2FxgiJwYps47JqFqY1DxU/pMSbbiPv3j/E/mRN28
QvMTXWzk4o1Z9rgj5knCKCZYkxPQPypkgnrCBCO6Oms0NC1JMDyVkx7mF3K8
fm+C3KMPZQKAJhXP6izjhYzTlPlzgpHmr0QmCJtDfWyhMEB7f8hNTwgVsfoD
fZ7iMdRMMIcgpg/SW/NwMJooCnDmVdQZNk+a1zAr/tgm58fTyRm34Kda4cfS
a8Lk/BMr/GjWCQKMBTaTPyJBoy2GME63wg9nPTuo9qcWhhfWlSDMgL74Myu8
Mh27eOm10ML4Mwk3Hnn4Rc5xodg4wwo/iA01yEI6M3FY/NwiIXksITJIzrTC
fxIe1NkWQ/0sK0zOW4NZdSXDZcTZFvn9YnR9y4Uscu7oSDY+RIlO3H2MSTyt
EHfSXI9l0nkexoQNQrDxmZ8KOlTfH9OeioXgL0uQaiUiVX0SwWlW8ul94mmZ
uFtUgk0rUVsloW+Z8w9ph+XYuaAEk/ZbJo007K1TCQR6V47rX1iCQG36VCyB
mhbLC3kvz4mki0qQZqzpqtI09xGivqt7QELbxSUIc2w+YbZbUiMY9Quc5eJs
vIcC9YNK3KWjJE915k9rqXCz3hV7IMvSHgilLPjGZcVIdCBJoiot8YVbdJ4L
A99J8+utCEc6YPq1TZR3ZDNUiNLLbRa+nQaHNMLbWq5UwehXWPnbaHDIuuyY
8BOt8luL5Oa0R/He6Eorf5OkeG1yrJeuskhuTJsFVAQDXG3lbyB5fWOrd/xL
rPz1aTWCP7prLPJraXBgAc4VWo3XWvlrsvEd1HidRfI7sZFO9fAe2q638kty
Br/RCl8lNtJ3H8xpN1nkV2Y5INjoltHRcDWz1x0Od2r90VUTg1nc3cHAzrd6
PBtww5vMuHbLszhHR7eX4OZ4w2uPLRUWmfrydFSwRu4owdJmw6XPCOOTdZn9
NxLA+lsRuPClJZg6u+cNC1Z7veikAWnz4vzVLxs1a4e7ysRlnlQOxNC4Mcio
YXkJ9h7svuWNrGIPXC7OD4u7SjD5+B5MHi9BOYmguSgnGu4eJZGPtURujoNs
ZP4qXzP3FOPyHvfY5hsM4f4eU9aiHG3ca5Pt+ZL5U3Dvs8n8/HTmx8FXWOFz
82nlfguGdmS4n8/QStsKnylsqwkR9pkw+AMWzC8kclOM+6CVp41qTWcaXaw+
ZOUXiuH1uShXC3+x+GlLXoM6R5uJi66VVv50KQC0MtlSD1s8p6XXywr9m5Vf
0H29oM+/W/lT044OfSEtPWbx04FMTXsOuyVgfHx0zF5PfgUvupZCFHQohqWu
9hrQKGjxCY9iw+6v9fGp7K9PFgVqKgFnAKdYXYLG01ts3U+2u/OzfsfFPkB5
sgR/V5PfT5Odjt6B0OTzJGj1ZoCdeM3oGNzcpWtwwuDHpxkcdAG++XQJBi9w
cG2uDuID9B8QFLg70KaAqxQwxTOjIvI8+EJXx4tBbFaBTPDsh0bk6jxb0MyV
kNAXf5Av4Fbh+Q3H5VF/H836gACTBd3Z1WDqlH1e2CBcHl22qW/rIILj8tPV
sE3KxwrjahKCvS542Vorfww21JkkLKXjVdKLttMsySC8ieZ9Lkz8T5v5jxJm
0YuABAALe9nKHymL0BtGXsQrFg/dd9fBJHD4rZkuLOJV2+nb5CXwIdcbrg+6
uQovBCX+ZTsenl49r+Z1u5rDSB44ke8mmSfxQN3Kf1NMriMSHBCA/tfi+Qat
3lZwoAXQBh7/v2k7HUqrZ+7BL5anVv+W7fhVURs7DHeEyguvPUHibbusg9Ox
BA4BqnnHx9JgKfqPDnZ9uk0Glt5AIZyvSOrVVgSrQNu7Ck7xOoC/mZd9xKT7
GJL8DhRI2lGYmN4rkYrVwzaOjx4HSL57X0FyALlUCgm4IAbU+4XIKTBDZ9qm
ZYbeX6kXqty3AKSRUtQdvgGfQ9XdqXtvwgMRnI+nr2Q9gQ8jlQcl34lydYgn
XV1BkIZUgKD6CxmP6GsIZZrNckZDPDOK4qkV8u2AR9Op2Zzn+vX0ongGBE9O
6HLllX3eo0e4YwbaoyiYcR5M1zJjLH4w1nxvJimqMuDUovMPWQ6Yko7FbM/x
tid91b2OdbbaY3LUSM9NbM9dhHeAQiBnM+/Ae2iTmNvUks/OQnfAWjAf9wYc
eMCAGoPXzW3vHak3kCKUfprzgL7kEQ143cIip4cWKsDnzM/cG/gdL01C74m2
9w7UG/IMW4l7w2h4XRd6f9z2/pxojXXOvWEVQP1E9SC3jV33Z0VrYFetNdB5
bLFP2d6fod5QEQBSXWKA1+CtekD+aYucGiogxTWjrjNirW1re39SLGaR87rx
Oh17b2eR0/MUFahXrcXYW8TXtre9J8Y6h7W6CvWGaha/NBGQ7+Bj+4OUPV2e
nnW5G/AtxSpQ6GlfBi3FHrGjQle2CoqLMm7TzwDLScjHxNjWycH4cXjuXIgr
utdBteRJUadN8FD+wCfBQSHWfUBxVOiC3C6Cp2chVOtWCFn9hJMiLDY2Ev3w
lsDqRxxyt4CnyBVEqgrKBzNO8pn1oKxyppQCk6p+uoLpU2DAZSGxY4KrSHKN
k8y0QpYimu23VU8+jroEPVuJcUCqjBPOXoU8OOCIq518HFVJXdY4kIAhAeH1
MuKYITh6VjmVqMrpCgIzIL1lB4HoqYizAlMLa+zjIfSobaqmtqGEk3o+Teor
V9cbOy4zwBLinl+yxKEcGVI/0Qx8eoCVpGxOymQHO9AKYevBliGwNfd/psD3
czfs+4lsR69kPCeENtrS4xV2sClrGl4Poc8nqLQOfcFHyAJDwWexj35UJm3U
Pg2lpabaNzsVh2X8P0bwdGEpqeea+0Kbi1eUmCb6spJ6hjuKTI6+umu3NDub
TSS07EdTELMNOM3swV1FUX3JYVUxYIalx0PHmacsg34jvfOOzAwfrhAbHXO2
4uE39UrQ5OmhQ38+5oifURuR4WXsjpm8idXwE0Jmi1ZY88PqG2cZ1uqv27Dx
g7j8SJ52C1GuOC3M0WpGq8yZQ+wpqSd6TKHi7aP/mwe5s9VfAMMpsrqvx8rx
XXgVUYXVOM+d25DvbAuiRC3pJOWWTR9uzP8BJVAbWg==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.5", ",", "Rgal", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.6", ",", "Rgal", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.7", ",", "Rgal", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.8", ",", "Rgal", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "1.9", ",", "Rgal", ",", "1.0", ",", "Rrms"}], 
      "]"}], ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "2.0", ",", "Rgal", ",", "1.0", ",", "Rrms"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Rrms", ",", "10", ",", "30"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"rms", " ", 
       RowBox[{"(", "\[Mu]m", ")"}]}], ",", "\"\<S/N\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56112943346875*^9, 3.561129445*^9}, 
   3.5611299475625*^9, {3.561130135078125*^9, 3.56113019715625*^9}, {
   3.5611302545*^9, 3.561130323609375*^9}, {3.56113066265625*^9, 
   3.5611306744375*^9}, {3.56113070915625*^9, 3.5611308186875*^9}, {
   3.56113108290625*^9, 3.56113108425*^9}, 3.562068962078125*^9, {
   3.562069009984375*^9, 3.56206901184375*^9}, 3.562069065296875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwVzns01HkYx/FRG+qkVESaFmd/NMmM67gM43lO1FGEkySpORadqeSydum2
RZFSblvWSqJk0s3uoM5G2CTKpHWpmfn9fnSsXKstVoWksV9/POc5r3M+f7zN
w2O37J7D4XD8yM3+FONKPQ6HQiMnenLoLQsmqa8XUHMplHopjhYTV46Y6Xpr
U9g/UDW5jfif5uw5OQsplHjFtTe9YcEjIXrCdAWFZw9Fm155zcJkB68X7Ckc
Kyy5HTLEwv6zxXeSIinE3Hveja9YCNJkhM48obB7Z8iNgwwLXwruPRssscDU
uqTep49YeLdadH5XjCVeLWVuqOUs/O6+u1AlXI3trRZv5IUseOr2tjgv4qHq
RBbHOo0F6lHlJh7Nw62O3pOZcSwwTsoRTtUadJ2+Y3pkOwu77K7QXelWWL8o
Nu87ZIHPbTTYsGUtCroGhaM8FjrqhAn5a62x9MA85drFLDT4a3iHx62Rc09G
5Y4zkLw3zkxSx8e7Duskwy8ZWCZycLf6VYAjZX8H3XrIwNiUz62TEht0aQmO
un+dgcDqHcWRXFts6H/eZpTBgIFr/5lTp2zROraG/1MsA1/kxmbxb23RW77B
b9NWBnxTEx63B9th0bICrrkTA43+R40nau1wU1L8u9oVDJQmlh/5xcoeRyoG
DkdP0RD9fSWHn2ePuWmDev5dNOz0CrfJmbLH14G0eV8dDXdPiOKkUgcs7pc0
nb9Eg2N13Q7tZw5o+MJiYH4SDQVVhtJrto44sljHRxFGw775eSdrCh0x/+xQ
RDbQEBbcsDlPS4hlLzX1YEbDA44hbzBGiBma99s0X9WgGyOmnFkh/ivV5ut3
qyHxub7C38MJt5ldLufWqsEvd+GJ7ptOOC7KVgkuqMF3c1Wfrb4zqpnMqfUH
1WCnEEjTfnRGfT2bHuPtakgu6Zz273FGdPlwscRRDZ/izd17PV1Qa2MAtXmZ
Gl4U5WcOyl1wvaljxeR7FTAPa05XLXdFz/2TG/paVdB8s0J2/LAr9vww8DXg
lgpWvW9/0TjoioLo8qDSNBUUrLlY/sxHhKEL7s4LilTB8QeZ+T7VIkwRj2V9
8lCB/8ogmYJyw5SrujpLTVTgGfM4dEm6G47h/ttFE0q4wg2nWj+5Ydk5vwbz
TiVYNpbl+YW6Y/eAVtuCP5Rwjv/QqrPeHSf+kh26lKGEPR++6WixEmNL8NYe
I6kSIivGzNKzxdice3o+10sJCoVuSu20GCWpWaYrvlVCjGdvTgtxm4XsvAHx
0trqIhWx9tX7OvrEIeX7akaJ5bbDI9rEw9mt/1FfxSi4AA8+rlKCTlBOWCbx
x+KhsHZirx4jD4mG7LO4JaeIh4NHfaKIZTcFy1OIM9qfhBwkTi7BM8eInzcc
SjhHrGMZGZ9AHF7adbuZOODnG+siiI/vLV5pMyNGOym/z4OYenVgjTtx0jpx
sIj4yY4A543EHZ99nwqJ9X21AiOIj01HVVkTXxZEnPmN2GbL9RST2b4yt/xS
4jt6f04YzvaZGlyrIPaSNUUtIbZZ0tTwlDh/z6tAXeLO9EttNPHO3NHHc4kT
5yS+HJjtKdS4zXCVYHLE7+0YMTd5oXyKuP6D5ecZYiM0ocaJ/wd7DlPd
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwVzn8w1Hkcx/HlKptkVKotOsx8sZZdVlg/dr3fN4y6iLRJpZw2RrlLP5zt
6OcWFXFtkvbUJZ00KeXnaB0KJ3Yvg2p/fdX5USkUTiOXlPv0x2te8/jvaSfZ
sz7OmMFghJJ9/ROsivkMBoX/9P4590kfDcvTBk2pbyiUHfuOk0NcMWrLXD2H
Qs/z2d+FE/c+PGssN6OQ1Zm6oaOXBv/k3ZM2yyjsdjZIVT00/NfF7gN3Cg9M
Kzn3n9Pw05mCqqOxFLp0u5T+YaAh4ktW1Ewbhdz+S57hXTR8yr/XPnDNHq/u
kI62NdDwztH3/LZEB2zuKJb03abhjjDustbTEfm508Wt+TQEMPtUAnM2pt5b
NHrqJA3UXxVr2Ho2+tkH+S9MosHgpRllVDqhqbyJG7ONhm38Qn13BgcPdTTn
JKyigWvdbBm03hlTym9Sye40dNV7JiucXVDxegk6WtHQGPaFnfrBBUftjtj3
z6Lh2K69ttH1XBzZNGSSPmKARb4rhZwLPCwZNB1TawwwPhV8Kz3aFZOkF94K
GgwgVm4piLV2Q4e0uFTHIgNY+rzMPHXKDTd9EM42zzTApzKW7f5hN6xVHs4J
3GeAkLTk1s5IPs6LsFyqjDBAc9hh1mQdH2cuRDvf9zNAkbT04DmOO5b6Vg1a
2Bhg9/YKBjfPHU0OH1mYZmyArYESV/mUOyZXrZIdeq2H6uO+e+PjVyLrW4lH
s0oPHsr6LXPaV+L4ixaqsFQP+ZWL44vdPLDxpkmR8pweEubmpdde9kCPXe3m
zCQ9xEQ2rs0z8sSaFpdLCzbq4QFjMXsg0RNH8wUbNnrpgZkoogS0J0byefxn
S/QgfWKhDvP3QtFbqSnvow5Cc82OPyvxwkl1JatMr4OQtZUv3CwEOGzdQTNr
dcBX8+JPJgmwcFB32+iyDo5dezwd1iPAkvJyRX+qDib22wn7Arzxo230q+oo
HTy9osgeKPPG+UPMzLs+OjA01Z6uXOKDjk6pn2qW6eBhSfl1WaoPVjidv+E2
pYUVI51Pmwd80K4l67cqnRbynS6Vtgf7our0RnlcjRZkD7IVwUpf1OwtlrFz
tRBmFXFdTfmhOUdcv2GfFgISW6MWZPih/F2dsGmdFgqtJdSjCT8UJ10dDORq
waH5Rl5olBBT0rj5RmZayOE2cR43CNFbcnFSPKyBne9ndak4InzDrh651aqB
2PJx24yzIpw3++2a7cUaUKuZJ+qmReg4kaJ2Oq6BxIA+uYr4c3Xrz/bEC+uU
V7TECY6LbeyIN5cm1I4RT1ndTWIRvzn76F/qswi9Q3qsTYhNIuQx2cTharc9
L2UaCOxZ6h/9RYS5QYpFBcRvIseCfySOtX5Wn0+c1dm2+Rfi8Ws2O/OInzSm
JOcQi5uu12UTS4q6bz8k9l9zJ+4QsWxXgZXrjAiHjpbVbCam+g84CYmDJKPb
I4jbtqwTfE98YIJrFk5sEWIk3kH8A68kZjXxVd6OzIvEMUNX5gq+9t3wUxQR
p4u7K92/9tlYFpcTn9m9NJpH7LqgpfFvYqz6tcKe+HHG7x164rFe1VY7Yqmx
9PkrYlnDLJMVxMsPhg6PE0+HQDmLuOG9w8cZ4k1ZKVGWxP8DUKxUbg==
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwV0n0w1HkcB/DNNaWOTqWiXNH9qkWyS6xl1+fjOHeXp8vOjkvlwjZatElD
R4+kwtWRtKRQjXKXh8NS0UZy2V0PQ8o+/ChH5ZRWezo9yHHf/njPe14z7z/f
NhF7gncaMRiMQJJPfcyixpTBoLBozEgUU0fD8rQX86nPKAy5IPiXTVzz2tr4
uzkU1q/++uD7Whr+as0yyjah8Oz4h/jjxJ4Ju9+tsqTw0FB8baGMhvcPmIPg
RGF7AO3cVU1D7C/FtUdEFL72N9PbV9IgnD61dUZJoSrWPLTjGg0fC251Dl9Z
g5F64a3tUhr069zPbpesxc1PRiVJJ2io5O28qHZZhz2uhgBRIg3exoMqzgIm
yil5UbiIBurPmk1MLROzQHvdVECDzrX3NUNmi3r5ffENoGE7+7K2L8MOvQp9
jFaup8HBqsXcN9geO3yepkRa0vDgjktCvv16tIu5zc2cTUNz0DQz+e165Lp2
RuYZdHBUHGcddscBZ51PGcro18Fid2ee3bkNeKJckSFs1cH4pF/Z8TBHVOgF
uV9V60BQH1ossmLhebXXufLzOjDnPss8eZKFjckTm9ek6uBjlYV1/CgLu4J9
99+P0YF/WoKiO4SNiyqPuj0N1kFL0CGLd3I21qkgdoeHDkoSKw6csXNC052W
rEgbHewOr2E4SJ3w7prUoqS5OtjmE+GYPemEjDaT5pExLdSlusdFRTkjX35q
T99DLWysvxM6p9MZz1ydncNp0EKBbEnUNdZG/Mkn6VXTJS1Ez5Meb7i4ESVn
FuySpWlhR0hzgHSWC+rNswzsaC3cZSxhDktc8FxlxVurAC0YS/gUh3bB56nJ
h91YWkh8aNYW5OmKpdKqxwZzLQTmmqT2X3dFyia7yfidBvwDZE9ZZhxcKcgS
KmkNsNs2RJ3Yx8G8phKuaZMGjl7pmQoa4KDn0tr0uEsamIi34Q16u2Fe37YC
6TENPCrKPz1c5YZlYV5lpiIN6O41pMuWcrF3XlpnuK8GWq9XX01J5qJJ+4X+
xbYa+HKs+1HLMBdvhJXvnTLWQIHthYpOP3fM2TQpG3iphpS7p/P96t1xpqVf
O6VSQ9AK4dU2ygPJg532/q4Gb4li68IMDywrWB0+kamGy1YRVMeEB/59OTBa
JlbD2pZSaeBWHkrEPyoOblJDjsM9u55GHh42W9ajsFfDrjezH6js+Gjzm28C
b74aRNXj1hlZfJyJftv/5GUvtLUZH5NP8TEsZI6yVtkLEu/BbBWxfuxIVRXx
Inl9kZr40Rcf8suJt1RENxiI0/UvxCXEI1kd/1D/kb1F6+e5xHOF2TtOExey
dgXtI/YZWOYZNs3H7liBmv1pH2LwiyGmWY2NDsSnupVbfiYWHmaW2hI/bE5K
yCFW1X3cb0McUdJX3kqcI71ouZA4RVy8wnGGjy+tldsMil6ghvbb8ohXHbL/
5hWxMvQHzvfEzyJ+dRghNvOfJYgkXt4ePD1AfGlDZGYecfwCdXEXsU+pR34J
Me+mS3o78cgq82vVxMUvcuMUxI4L7ze3E7uPbvZqIu7JKOzSEu9r+MP2NnGi
UeLj58TfLjZddJN4+YHA0XHihgnxZA1x45u1H2aI28JbhyqJ/wfUPGiI
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwVzns0lHkcBvBhC7UlFZHYtPvShDEzGNMY4/st1akIZcumdEHJbUhLbbZW
qeSWWZUkSqJB6WC2cyJaQ6mxHLqYed/pYmeVo7RdWFHC/vzxnOd8/nnOsygk
dsMufRaL5Usy2SkWNTNZLApPShWjldFasDz2ejr1DYXFHUWXk4hr3tsYrTag
8I1iCq4h/rslW182g8JIJW/3yygteCbEDC+cT2GXsGXTfOKRh2wdOFPIvdDU
mRKhheiMS3/8FkZhhZ+5TcBuLWwcz9wy8YDCH1TX3J5u18Jo/q323mJbLHQq
MpKu18K/i91PB0vtkPftzKpELy3c8NhVoBYsxjO2Mrm/QAteRjqV0JiNXzU3
7X621QJ1t2Ytm2aj4co6DmeeFhi3rvcsxRKcVbh40HKqFoL5l+mnafbY9XHR
cOsgAxyrZtNVGxwwI6p9hqiHgYcNgoQ8B0ek9ALjlZ0MKP3G2Qc/OaLOOHOZ
yZ8MJEfE2Wxr4KCVMqB/eSUDc91dPOzPOqG9c4Lh8fMMDHzxvnZ8GxdLdAIj
+QkGAmqDLoVZ8dB47ePb9XsZMBW9TE9N5eHK6K3y+q0MjFZZ2MT383CoIyy1
YTUDPscS7ncG8tHhmWAsyZmBZr9DFsP1fORbWIdEWjNQkliZ9Lu9M8oUV9bN
N2AgZmcNi5PrjGvEEa6d72jYuiKEK/vijGcdp5ndpGm4edQ9LjzcBdN6qjN+
bKTBtbYhyKDdBW3feu7kl9OQrzALv8pzxVjuWyUnh4bIabnH6wpcUeWaVdR2
gIYdgcp1uXoCtGy/3X1/Bw2NLDN2r1SARd0xstBVNBhJJZRQK0AX5a5PNo40
JD42afXzdMOTh61HfebS4HtmxtFnFW4YGnvjxfQRDfisU/TwTIQ4rfC53fIX
GuC3OoWf2CdE3vTPV17d1UBy8aOvft1CDLrnqK8r08BQ/CIPnddS1K9it8ae
0sCTi3lZvVVLMX+iZ+TQXg0wTXUnFfNE2Ffx3SnhJg20VFSXHjkowlUT/BcS
sQas33U+ae4VoWLl2FC5tQbyl1yobPd2x8hZ3PHneho40piV513rjrKpcvMD
PWrwW7CxtJUSY7c8I+yne2rwkt7fMjtNjAZdcS7zytVw2SqEahsSo0gRPUeY
rga7Znmu7xYPTC61jXSJUUMOp8n+0R0PTC3rmyj0V8OewSkPVfYSlEv39Qfx
1RBWPWCTli1BurEv0NRUDa2tRin1XyXYY2eSafdfF0i9dDIVseh12K3viefU
115UE5+bU/vyO+LNlZF1H4iD87dLzIn7sts+UmMSjD9c+s6Q2HCjbEcWcfZ5
0/WvB7tgRbe557ZxCQqoZLPrxH2BH7yjiM+rlMvKiDM7H2w+QOyg1peWED9W
/pKQQ6yjUloKiENKnl5vIc7J+3V/FvGRiEsLuBNkT7uBkRJT/+xf4kE8PJA+
NYr4QZC/cA3xaHwTP5zYxEcvIJRYVcZN305c5BSafo74TL++2H/yn1ycV0K8
39Mt3Gfy30LTq9XEV0b2nF5NzJ19T/kXcW9xWz8SP0or7KCJv+SMmUuIE/UT
n78i3vyGs0JEbJnk2z9AbFweHCcgvjNo93li0h2ZBXzi/wGhR1iD
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwVzn8w1HkcBvAlk602ldqOKKpv2l0J68daa73fxekH4cg5iimRqzsqtXtH
0yWVKI5Um+sq/VAdXbL2NDEYUqy9TGy1+/2uLrZirroUDTaR+/jjmWdeM88f
z+KEXRFJ5iwWK5Rksg/bVM1ksSicfvRp+PyZBlhw5PV0agqFtsz4yTccA1S9
d2SvnUrhzau7HzYQ97QUmBdyKBwzebkkE/vLUkYcbCn8tURtuDPDAKZOnhGE
FA5svZHx7XQD/Hii5K+DiRRazMlQFVoaIOpL3qYJNYV7RiqtBswM8Pnc3fa+
K8uQy3HUbBti4N1y31NxqU6oWR7RL37NQIVf0nmd13Jstwriv3rGQADb2Cay
4mG1vXQv5xED1P2q9Tyah3+sa0xXNTHAeD99z1Lx0Tp3ZPR+FQNx7pfprlwB
GqNLu89fZcDFvnleUIQzxlwaesE9w0BnvZes2HkFmnRrv+s5wkBT2BdexvAK
DHtzaThSxkDmjt2O8fUuGPhZPlGexMBcXw8/wZmV2Bq+PydoIwODo8E3j8a7
4vYujvhKAAORNbElifZu+F9wtojvzsA88avjx4654Xi1oECxiIHPlTaOaW/d
MH71ComRw0DIEVlrR7Q7djSNL+F9oqE57IDNSJ07Lsq3G0jro6FUfmv/SYEQ
KyQ9yrudNKRsrWK5KIT4zv3Es7E6GjYHJrgWjgqR7zPfFFRGQ3WW7+7kZA80
Zwf3Zp2iwbOmPnZquwdSfeU12l9oOKfiJl9388Syge2+op007JymOFp73hMv
5BxbIo+kYUt00waFmReaY4pLr5SGRhaX15fqhWnhmSq+Ew3sVCklMnihtiDW
+bAVDfLHszVh/t4orF/PdjDpIfQ0J+tZuTfaRnGvZ3brIWSD6qXbbBE2ZgVR
rmo9uGtWJmfvFeHq2GVvhEo9ZF7RjoV1i3BNzsJ9bWf1MJS22M8Y4IOdRSNZ
Dw7q4cnF4vy+Sh+09W8u25OkB+ZebY5qvhhDWq8Zi0P00FKuvHYoQ4x5c3vs
xj30sLC/40lznxhzFri+NNno4Rz/91vtwb6oGn7ecXxCB4ca84uDa3wxfd9t
RvlSB2F2Udc0lAQza5/nzlLrICC1ddOcXAlal0X32lTo4LJ9AvVwSILpxu47
ypM6cGq+oQjd5IcpZ78OH5broMjlnkDb4IdLRYP3FZt18P1Hi842gRQvNJiq
q0EHicpBx9wCKcb1V5aVUDrQaNiH68ak2GbhHD7DUgepAcbCNuLkmPfNlsTW
dTUXdcRyU5XIgjjm1s7aD8SdXB+H8ak6+Lfg4QA1LsXKdnF/P7FlVOGWfOJR
oV2eljiw+yv/+C9SlHVFtf42uY/+EPwDcerBKRIFcV6HOuZn4uGUyooi4sdN
6bIi4loBW3GCOKG0688W4mlLbyceID60o8TOdUKK92Z1mW0lpl78xPcj5sYd
kMURq2PDReuILYYWvY4hnh1iFrmNuMViS0cE8aWV246fJX51lbkYOPnvhqS4
lDgoSG69avKfw7zrSuJvPKyzpcSucx40/U2c9G5NijexNvfCI5p4V62xR0gs
N5f/00u8WJux0ZV4wf7Qt4PE2Z5z1c7EDR+dPk0QnzaWS3jE/wMFI0x7
     "]]}, 
   {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwVzns0lHkcBvCprB3UnoSyLjXVmzszLtO4zPh+Q3tcYkrHcVxSRBMtKdFS
saWSyiEVwtZqdVN2GWoj1ESF2FC9874uCS1dN2mpaMf+/PGc53zOef54lkZs
94+azeFw/EhmOl1fPo/DoVCjUy8hq4gFg4OvNKk5FGp5ChQyYvl7HtdTncLJ
pxs13Iif38+enTOXwjteqoyJQhZcE2M/LfmeQtVty4ow4s+dZgNgR2H3jkAO
/wwLPx47V50WSeGsv+4JHuaxEKA6HjLdTOF1P9PHH06wMFV4s334/ArUWDWi
ZZzBwjtT55Mb4kzw5PGyrUV7WfhdHFVMC01Rx0uo/WEHC+7cgRbRd2Z4tcB7
eDyKBapJ7m3GmGHo0j3CqGAW2JVP33OqzJF3qyl1hy8LG2xLmJ5MC2zNv9zh
iSxYGzXq/uBviXpaL7Zcsmehs16YWGBphdGp8/KPrWBBIVWZpUxY4SuMrVYt
YuHn6HheWL01Sl7SVwI0WdBxthdbnLbByXar/uVTDIxN+lw9FMZHiWgy+/Rb
BtbXBJ+LNBKgcX34oKyXAV2nF0czMgQo3Z1tvriNgakKfd7ONwKsVs4JP1HH
wJqDiQ86Am3xyJu0bvFVBhql+/Q/1dniBloubCpkoDSpfM8JCzusyU41SDvC
QGy4nGOdZ4cHzwwOCZIYCPWI4OdM2uHOWssnjZEMXD/gHC+T2WPuVNCfqesY
cKipD1Zvt8ebL5+5mQIDhVV6sosCB+S9Xra9x4qBGI28Q7XFDli0S51Xos/A
pkCFb94sIf4bMdgd+w0Ddzh6ZsNxQkwxfN7jMaoEbpyEEnUL8VYavcykRwlJ
j+e3Sl1X4o0XQ8G8B0rwOzX3QG/ZSmxo2hWlW6mENb5VQ4L5IlyQ+ExmWawE
21Yb2eEEESbLbq9Kz1DCz+e7vkr7Rdil3iu/HK+E8Z1LxQPujtjn6mvMDVHC
k7MFWcMVjihbn+Dt5a4E9m7tkaqFTjjy+dUBpZUS7pdVXtif4oQpiQk1pxYq
wfifjieNw07IlItjjVQ0FJoXlbf7OKOBpC9Nc4SG/XeyCnxqnHH60c3VDe00
SA0DLrRSLlgqOtldWE2De9yDEO1MF9RJi+wbK6ahxCiCaht3wbB5bde46TSY
NF7K8wsRY75W+NOiGBpyre9adDWIseLyb/3J/jRs/ajW2WIhQUe3rBtqjjRE
Vo7xMrMlWPYxRs1iCQ2trdz0uq8SXBARGf11Dg1x7gM5LcTrLnqafCFeUFdz
liZOWGw1NE4cVB5TO0psVzYa+p74ZXbbB+o/CY7z49cOEn8bkLMpi9hj3FPU
TOzRv8g1TCXBwdhwtVMz+8BRn20ztrFS5BAf72gO+om4d/nEvizix4rkxFxi
+ZWMT4eJI0p7rt0n1llR8jqZeH/0OUP+tAS395R3bCSmBnebi4nde7dlhRI3
B68VeREbapt7BxHPXzNr/WbikYUljf7Ev9psPppP/DY348bqmX+XXApKibkO
kOA282+J7sVKYoHGBB+I+dr3FA+J/5CGX3Ek7sr85RFDrKnQ2yIkTpqd1Pc3
cdyWlmV2xAZ7/N6MEb+Dvf02xA0fTb5MEyf52hRbEv8PMCNK7Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox[
     RowBox[{"rms", " ", "\[Mu]m"}], TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{10., 0.34},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{10, 30}, {0.3298926689685699, 0.42064856816509305`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.561130889640625*^9, 3.561131154265625*^9, 
  3.56172828409375*^9, 3.561789842328125*^9, 3.561982590390625*^9, 
  3.56204635334375*^9, 3.562068517515625*^9, 3.5620689926875*^9, 
  3.562069042515625*^9, 3.5620690969375*^9, 3.562351662640625*^9, 
  3.562354697421875*^9, 3.562465888924881*^9, 3.562961703109375*^9, 
  3.563086689359375*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzNfQlUVGee722rWNQsJt2vJ90zZ5I3c1533rzzuvvNm+5JT3cBigtqFHdR
RBRFERRFClxBcAMEZYcqKEBxxw2jwSVEokbRxNZoNBpjmpDWuETivoDo9+7v
W+797q0qxLx557ycgMWtuvf/++/L991bgybaY6JnTLRPmzTxrX6zJ86KmTYp
8a2+M2erhyw/UZSfxCiKcvQtBa+J+pL/Iur/ZBp+Kcrf458uhL6nvnr3BY6+
RI9a3rp69W5aVeWJWVtqzig26ZMW7ZPd6FHrGy0tDxpmxu8igTZn0+iRGzx/
uCs96hN06uSVq0ND1+LD+Nft8l3MZwAEPo2fPUn2uh737rUqAeYz/sRQq78b
FLvC/utCf1vVH7vSQMVD32OHLdJhovyen94gztVO91eUEJfSxD8nX54f/3ev
p1qlU59D2VdpcoUo8n+v/7flc9evO9WFCcETYeWPZiHYOBTtWvYGpQu/PhH4
1GMaJ/YGhv5lA3r+OQ6xSaFX46fRz3H67NyXvJ/rmeQf6B+vKKXheO83yq9+
Ty1B+WBxkPRRr2TfeR7XIa4mxU9Sir1BlvTL7Np2SadNDUpDE/51KSH8fBxn
1wtRXE2CVV9v5/p4IPev9HcP/9bW9gyn47ibCTPpsMt3QLpT7PqarB/HhF3S
a3MxMmPw0zRjpMewv+PhPE/XZ/z5vN3cfKtxWkwteHvUJ9hFHZrR6Wa4bgc0
O8Ujk7FVtyr53O5U9OLS8uXN5PD3HyV1ifetni//vxiXE/bUXbg1sH8VuDwf
Eb75d19dvMm57C65LtNmR6Q7xWoXIW4JixY7pGj07xyAwZQ6xbuP2zn42+qB
xm/o764w46qM5R8JM8ZrHDN4K8PYVXOBzgqCZok/exWEKfpxe/oPwTz3HS10
dGDbfxTWbD7HGJ8Ffp1/auZQPHiHIYR9WH+Jm2R3o5k/B0Kn+LZoBqonind4
2MTnzALWFOY9jvxBckmvp9NIS0lKdg+vBtunJkVthRg4ulcom5rLCVNVL/XV
vYfKmZIkJdAzkk65gMWctnTdA57I1+7pvmtncojyB6/nW6XzKVsW4RRS0v4X
hs7sFKUrcw7jmFW7Okcgo0uoLz2cs0Vx/nmSEvkz9dCUHW7o3CT0Jy9+INuK
OytGQ/43cQ1h+5LidT/TAQt+33nuec+n/Ta7BqKmmxOxVP2SiXaskhqeQZy2
hEeu4CTlcE6pGdc/SzFcQP2pWW6tjC5ykrBi5Cpqxd34e2dqPgIN0Dq/OTzj
nWtnv+F4LRrP4MXt4o+YESCZI6kLI0CyhxGw8tX3jQctd/fU2Z24Pn6qPlq+
0b+99cl/95BS3Ug8ZBjNRXPI8WPfCvwTLtQdv1XVfz6ujX+HNB06o/QwJAaj
zogUJ/gbalUWwvXmR4VpNwZb+nmXelDoVk60zP7MFaTq6S5T9eeVpo9Hmj8x
C+MBY9jcD6D9ULiwe7Tee7hj3/xKIeyGXfHFUMBrWooXNkYjEYP+milPGT4i
mTZ3f6ksYiyxzzGf/5kpF0jXcrm85OcO6blJ4R6TAriWyy70CsIkQr49dv7q
2tBU4T5zT62r57blRQTdX0gEenbSP8PY9zOIxJwKzfVSZ2hx/v8O/+CF8gv8
8ndjhgqcAevxYvo0maZ6jo/ghX9Uj2T8VK2t+n/Fi3o1xsurL26b0t8stP6U
KcqcFaVw8COY0A3yJe1V9/8vj+mvuHtgskFdR2GTk5idtefYe/RTigV+07Rh
5BKaCnjrM+HC2bpbVYX9iTPHpui0lDeMegux87jHhKV3Bvhbym9U+J6UJ71m
CvLhOqSXctOZe83fGVJuOuylverp4RhLtT7I1m49EA+8b9292tJYG5MnZzkE
Yx8erR7cb9lTt80O6eFnx77a+bIUXzO1XQK+Ctfgmi69+uFZSXJbrYppMJZI
VGQMyOse2x52OXMY6JBWF7MEbzI5eGuTunpO1mGX6k9yC/ORLQz/4m8lyEzn
e8V7JeUlCaL6QBJkIuhm1gVe4xje7XGv9X5a5YmaWTVn3ncbyt1QPBZTcCdO
2nPm6Yg/Jkdr0Mkr586Hb04gwYVjm0ZuiHOjfY1dA7XWjgXz98m1lmAbRVXG
ccduwTaKubdvNV9nbL/cEdtvtDy4VbX8oxJic44ioUuj27IH5javmljmPpi8
ynC8c+7sNbeCjOP43c2Ll0Fb4AAmYPN5vhgm1F1ouNW/aiIJWRXxNGX00i7q
+XmK5Ul+cKGqQFb//EmCRPvHK+y6KACEWDCNlcoiH6hB1LhQT9CVk1+J5rUj
ubzdfOtyY0ztAtInfxyZE5FCQ6MK6M6C4WU5FdWN9Ap/NgP6m16hiLEwfmiF
wmUEvXgPF909ykh9x7+1vS3DcXwDxZMweS4pCcxTuJDa5w0ozqpe2+jf2tbu
Ph7mmKAnEcKgN+hR8eKb+FsI6a27d66a45cQUsixb081j109g8TFJZLCnqsE
ILKwb+HeZYt3v9Fy64G7Hzfr8SK3sOCoEBKMG0bOigK35sHkynNPHV/3yJUX
DEhX15aGhnz712PCnmvS9+aR6ISZJL93jkC0uE/B57Nnbn7n7FfXWHiXEX3D
xIDeCJ2+KCxpdvTi3uiduIi6vX2rpbmxdn2MEFHVR3uX92h9TMtVhJMHU+fP
Jvl9NCwZwQU/TI6oDKs/eknpbcbSxFUiTR8Q7Wjf5q9HOZiNEA3MSXf3rt5E
887ZaxcvzV+2hKwKyeKaspJVQflt40c40iq3noD59DHD+ZqTVBWzMT2tXigL
ioMC/XlQUMsFs+Nz6XT1Jh0E3PeKystJ9sAMGQ6JDC3eMX/Vvreu3rjbzwzn
kh6EsN4icsCQw4eahHQ8BUPgY3D8vUknZ2fN7rbsoZkCSX5gPokeVHw8duGO
oJNfXOlvRvKVe+xBSqCxx1939VNbo3LM/S9rGPzfufbd2fObK8OFYDKOH3L4
tz9pHX/q0Kl7+SNWmpBcGzZtLUxmoDnoXPAcdNAseouCsGbet/iDJEgLGIAE
aH2bTzQ1OyeUMBg+pDAwj8S9W3R7cFTl3HU7T9Fg864Zy/kOgo2/53oJ+RoW
zdsoT1IJ+O70t6fXT12tmLCQ4DBHaU7FYRpnBps19EVn4ozn2MexwExzjzYU
yKKJ+PJo476dyVs1LCUBGpaG+KW7fnfxm5vKEDOWc54jDF0xeE7AY1h8Yaew
V+CA/eYd2e3aXTe3VoOhiiRhQBHpE+ZsGjlzw5BDnzYpw8wwznoOLpJ6PNcx
VgHxfsvG+t1pQh4ntzlmbN+/aIeFY7Az+ndCJukmMtyM4YweUeR6BtEFx/w6
jnFW91LiTmXWsBPbZzsUAWNO/wISMtpBbGOduQVrj1LrGGmGcZpdSJ4vwWIh
GkWKamiGDFHN6qmsX9zv8vqpyzUA8wbkCwB77Fl1bzdfuaWMNgM4pZunvEgm
hnR+HUczvmajy2Fxv1ZXRJJAsHBgLgkdUQoEZyPnbA459tm3yhgzgpO6UYp5
ilZZcqP0FNgBibXoVsR2JoXF/UhZeIJGflCOIN8yIKYqprb+nBJuJv8Xd2M0
xQqftBOVe82ccw1YEMgfly8fBLpc8r7tqUOzSeioEhB+EhThFGltnDlOfdIp
I/RWq/EpEELVuc0lMTKCx+kjVNZHFwJBe2CEsyBv7UEY4HgzguPPtz+PUZvT
RtQuOfxeqUz7h6wx+SQ0PB+08XN02rIaZNEJZslz2p7MTukc65FffnLwYUXk
XEqYhSDfvxVElj4NjcgT5L8bOqui7ydnm6PM5Bufa3c0Kntj3Xb17Dd/3TB1
pUz7gnNK+aORk3MF7Ue9JjmS19edmGymfVQ3OrcE5ddxIOYTf7XJufGXbTNc
Enm/C9XTiq+PSSgS5NsDI0sqM6rraASMZhh4v+9pN4PxuDY/YcsvXQ0jZ7dL
8IbeonH4sW7acjsu0p5fB2mPr5GDwz11c7aBN/YTuOpK1dTlF6YtLFM5VvlT
LM9s40o/jl21tse9B63KVM7hL5SOFp7MHMozVEL4GMc8qjN8lr3uorF6WK82
hA9pdTvjs6s3ZeJd8KlWH7u06lPl87FzYuLJpOVO8MdZ/euoRSW/+fo71v/G
cFb9Otwzway4m8eNDoJFaVquc3TQc80i1h8ZU/7mHE2VxxlSGayV+CGOyBlf
pCzNbus5SfBzJ2R2bsSev7DoH6vz08HKreBHPtbBCrfOz0eMH3lmIy8UsfmI
v7dkrzbrf2vYFb9V5scZOf1uasqMB32nCH7ag6auWlW4Zye91nSNn45W4Jkc
n799QV/Z5SM2H1y7Xi/95cSFUM6v7OepihrSdOiS2g6sF+bWXhasxrDoKWTp
/LF3B8UWcXaILSq/LmlNJfojJb5T7PA5j2JcR3RflDcORBnLOlv7efgz9REi
J/qKmthdV/NOrm1UC6VKwdnDihA1aMROJFmLhj8cPj1b42xC4VdjsrMxW1Fm
dcrw/DwYHuVIOFNIiDyb1KMg15E8uNXSq5+oqA06St61Z84mcMGZ+H7NkOLb
VUlTSe6SgU/D4hZpTIwrvdc3NS18//lGZXanooGVW5u3TQMiBeh7xvjQtouk
FnM8F/NHX4/1cmLz+hF5369518mZOVcTufpMzZJUkp/Rh4yfMcfCmHkSODc1
p/jgJkyXlESdmQ6iuPcFfj/j9gGJIRy3agzt49W1NEjUlvF4dpJUY39SHrRY
VU+haLiO75i6qfpAReXjwhUDSfSsBBI4rkTRlDM7bV/itpVvXb17Q0ni/Pia
MoqWSfh01tNb+p4oD8NvysUez+W7aKf4tSW1qEWybcnTsoB8wQgiW+zZDw5f
rC6LJHGJcaRXRKHOSPzSC+EVKZgOK3PMRUwdr9FMBZTYg8HXbSDE79cMSidl
tmWiNUG6Q/1UXf9+Bom3xxhpxmbdHFiYEFN7br8yz0zzfcaQPALXxr+cIJjd
U5e4RiWl9UIq8/vVUP4DGpWH9nnTSZ/IfE7QSmxTclp75sRiroloN99Mc5ce
keRtBmIfISPbLaexqL6tvOdKUa6orwtyjxYcfOvu1TtoUC4ty5pPQiaukqgS
27K4HfP3ZcNOFpor853uJSI4pqHDR1Tfre3Jp9Z/8rCit1Cn72NXr/xln5R9
rErhMarzbRVrHGRgVLZGNkotzNNnnoramgytpprJ7vDMrCjMrZqMH6tdUePt
qpASQVk1qpWujzJ3ARU+lb599762odE65QlqO5KSeDV07RToNs0s5h2eyyjq
kJwsZAmZ3qnUyap2teLktkklopwa1njywu2RsYWMrA8JGF8Mso+CyyKEhpV0
M+1t3qMbuLboNffG+rQ9cskPK7tX0XeRKH4wpfs6Ktmlk1fL8Xlzia04XKha
WWImv5WxLndh2sCe7w9A2oarCvN6WhaYD5dSXyeLahK0/xKTuknRiEdoxIXC
lWVm4jXMfr2FELwLlcacqz2j5yW/BxW9ix65ei1HSBGVO4ZO9bMzdun0x5UI
+lA7VleUDDP9zaxENhdnYrYrdK4SKRWNzuV1Q8u/3DS2UP1rtiing8+cbsbA
lhP3RUAmgckLiK1w3KNgVzhW1ZBgMs30N7GKwlxHwQ7VRv8qFM7DiB8UUH1g
6Xa5J0z4aHujkW54CQlOmg+6WM7amFafh+WAFWa6Gxhdc/iE/cWe3nFartFU
ekUIYaO/rj+LSgeHE5RuOzemrt89d0Wd6Pco6ZCkeYI0Vo4wbs8xO/k6Zu5y
bLkzLKRy65aUOpWlck4VL+Hkb969dgcTF071avbozE+nz9siqD4LGldKBtnn
CKrXB1dHh9VfOrLKTLVadzIttAyyOS7nDKt6XN6riFH1B9+qMZ2DzRnmPov7
LGieELuaidnvKagOtSeToIJwUH3cq3ysULGSa5Y1I23VYkuYrbRtSc9iplZ/
qBhFPj5kqGBUkg/Cwot5ZnrSM8JJRiQmkz4FY6Ft5yjFUppzuBzapdfPM5Nd
zciC4/VZiz8kk2wlZJUtn6/AwKJFhhALkFrJsbT3vPbw4TxbWNp6jS9rDVON
SiJ9ePrO1N9dvMkKuQIz6SoWsqIP7vriwcLeDlJiEynCAi+edabmJIK4oIvw
QdlWWSYjhudyuq29xpf/EDk/nfQrGCPoXhi/aSaW3OiJRWa6FYxu1Nnd564W
D5HHE5ZD26dvQRjTSje6q6Pu+P20wUtJ6AiRkC23+0+uPD9jWS4ZnDdaEL31
btUEGj5wVomZaJmeHlRDPfJD5QCHIPqs0JZ/rHJqDRWynkZaTuZNd8pErw+O
qW5YmF/1OKxY4/RR3/LweRtPbqc25TATdWj1zTempGAh2baCS/PD1v226VIL
T9Z+1WtW7nwaOqpAuM3tgZMqnYXrdn8/1RUpCD7t6RxVVHK4nCapMjPBYj33
qo3cp3Kr86zUlk/m2opaR/csQyDjq0wp22qOPQwd5xA0H/aPLM+q2Hzwszmb
EkiQYyQn+0HqrjTNiMvNbstMy4JYiBiEWCRqx9vOkFIyzVZM+tgc2uhOjAZb
29qjd3/4xe3BURWi1GrvN7bUVVq6b//y2vRnwY5RnP6X0zbE/f7S9Yv0xAoz
/Vy92EFcoHGRl3UHt87Y+m38sGpDrcDpYyQ0q6buzA/vRldppV7I6KLdRemb
i1wHytv6lY3m9FvGVY4ffewim+NUmcXO4pgF5WPp4ZwDUh6yIEJmHy3+uMS5
8pB6TEWh+Gly4O0Hxq4YAGM5QsOhGt7FzEmFS7Z9WPPgXddYYW/Dykanbz/G
ovMaMw4WxS1hl+q/xHRFHvzhbxxHASFyqCYPPjDECBarVI+CI10aDtXTW9P7
L6rYvHr11bA1k4UZ9nWO3OKoW05PXGvGkWV0NshA2ANkAxlBVqKe4HLxkeWC
QqFqueMjxcJxjB2aQzKC5zWWL1xxcdL6GRwHCXaMPJK5NenNW3euK+vNOJYb
7QK5mdvFS2qO3CxyCD6FOsZNLrxYQ+7m9cqTnuPK2ieqUFYFJd/MjUj+InbN
bEXC0jR3TZSt+fJpZSPv6X7kLNXHbZaKPp29ZzVs2xa8Lu3YBqEHKYv4e1vN
wXJcY0xqLef3fr+JrjtxYXkkP9BOVoXEfzmz1K7xq4aHO3FlIyd8dnYvL9H+
UyerHqct0iyIsp2uRzyoE2oVO2CEyUvJxM+s5oXV1Scn1B28cD7cvlnUpIjz
n6fMqCSFKs/5feJvxi6JgxmC5/aJJaFZHx4uQ9/Ey+IfM2I1bwyUeNVZW+Q1
qho1KtaA1RICjbXQ6InoKduKcis+vhoau1ZUnlhwrSleUXvbNWABWHsyNXFS
e09nmNDo2OLB722tXUC3zWzVuXvBgathv55xx6w+xGN9uwV7ppCq1BquWigO
uRI5k7U8rCSUe77Hvfu6TkxO3o44xRmDyc6p3f4JXQkqDJ5JYuInPe3pGC0x
dqZs7WQshCnbNcZ+zORVU5c00DMM/Cl3ycbIA1MU3IFTcEx3i4npi9xVBvRx
tgyMXM0jn+/GtML63qfONNPFVbAWFzfpWXDRGMHaiJIhLVmlQ8Muna9XajvF
mo8mWPcprHaXiYe7EvShJRv0WFARwzTlYCMaEZit2DetdREBIY6ngaOcvECH
/rDujbyDXZbXK0YsAHckuDCMBxkr2GtdWhCSduJIJZxuZ6es0qw8t2mswVLN
qzV2PX2huaFVFFeeIW1w7jAIqZ+d+D4JGKCWUGGCO/gdNhegysAaQf2OOUWe
uCOLc3tjrwKcblenIgpzeO/3djV5iJ6ST+qMJuiMotqXgyeY1iIM25RtyXKU
HXscPNxFbGOcPKL4IXAigOITWG9feqzy/Scz4qMNXIaWDCUL8/o07NocDw98
X+fyR81vpdvHPC5VmXNEvDFHSGUAbbBgrbS3684+F/3e/vNwQMogZ/PAzKW7
6N4EnnIHf934ecvcxJmkT/4YM5tNG8pHDmn66tAezuaPGut69ENFupuMcsYW
kSxomRA0aYqQsp9mqd2kgvu9D7+4MWjKGm19NGCMc3dyxh44oSgEf33zyvXz
6UsXStz5CO6wiQM7GmgG3GuuuNijDegYDFUIrfykuAcro3GPixqVb4Zj0/F7
fSeKytcCFzoWY9/x5rUb9wSgHg8fPty70rXyWV8d0NPQ0uEAhD1GpYc/yKFJ
a78Z0BS9LDL7sjBxvMfrNAvKPQRcSfcWEjC87Mqw8HV01NVFSLK9zVG2q6q9
X+FYDdCQkhEAJDafYkMqX96RAE0yApLznsEYX9JVphUoLCP4k4DQMhLQ2yEW
J/FJ9IN5jo/WtPUuCdfwFI8UeE5trY4KuvLtSeWAhIf2TpHGGCDjgTnBrGgR
9bLeIyBm3+o/WfRMXR/2jqygwS8wkNaRYiYITEsrjm961NcZIYT0LLRQExJ2
icWc+6yWL75KoMYZQUkNnVUGBdvmuFC3YguTpLiul8LiNz7oG1phrunFDvr7
/crHc1y+ZETeCLIot7fYzox8g111B836G+sBmpXJC2sWmsu9rFs4sgAqL2FQ
yHsb0/Lrj8fE7RC9j7hLDk12bsHR1RhWadhG54xElhA76rDTD9Z+2Ixt9POx
0YnOK+xzCGgmY+8GO5uxde/naVWrT8izTqxPYjKNadbjYFe4gDY2c9SzjJXB
8p5Z2P0RM7QRRmg0BncADUkTm7Eks7cCKiCLGp5JzoK66ffnrzTh5gBepvuS
CUvDSEZWX3nD/O9uXr/YaIY1VPfGDiX2Kq/Fz351DV2p1CH7QLPQMDQtanCu
VQtgRuw9fgJzfQ1b5OIxZNVyDZtwzeNmbIP1WIowJXmm5gQC36tepdZNSE1k
LtRi8uLJuiWumoPTd6bxcrK9pyOMRC8MJ/mLQlDS5dgQKMtH0vISl/jEDHOg
Xgsi5EsR1oqAJvtqD69StMhSFM9DMc+9z49LzTs/bkOiNntzjmufPmc8yV8w
UEC9trYkdNaZE6wzO2GGGqKnS61stegdFeDT6eNrXsVpMYiT44TW9V46qPRu
yMz0G4Mqp2qDyYqJ95OSokmJfbDAeadSL2n59kYp/AXzwlLNlNCwSO1S3sJQ
mFbYr+t5q0OR8t2gcGOm/T6FJCBuzuNeDhGaLU1ha2d8syTFTpyJgwTO1vLc
Xgg39C6Bz8w4g3TvQUdD60fuPfAk5DeaXF/3EAs9yZODhN7Z+D8knwTYE54G
lGoD18PTaxftLy3KIWUzh0J3AKllf5x92qx0dn+QFfYH5QobteplEjyf1rns
/lsLNq+bcokFNgBboMLkjzkRM5TW4JErScC8GczBre/N27Ni9ZYq12PXzDDi
XBHIRVndULeUlgQ493Mzyv8wBiLaMFp1L4K5wovg7BwlNutiWidlYgte4xi9
e4Q/Xwed8/XQWBXh4qkiCyOCI17aj+ytu1NlHweYQuV76mqSESvp2efMOPkT
a9Cea94uqRyBitrlz3SVm10IvTpKGrrnkIP89bdXWs5MSM8ntuyJAuS9vq4J
SNPjTh878t3alIkyyIPvrZ2lgTxvBvm/mX5kYer+o0UluBZc7Gd6pQXN05U6
DhU9HKodujGatXuWN6/dvtkY41z5zJavVTUtA8qjcQPNny5f+vLSxmVTZaif
bi+P06B+aYb6W93VoV/oWbJOg0h/rlc68Bqqd8mL6F06+ATHiYWfD2duXkER
cpzXQkvjY2o/O/DmvZbvG2tz5zxzZgTpUT5/3B9uXGbC/MqM838YvQjxB+Cs
nkX6cz3QaybKoZ6KmrdVc6SugqWmT45P2ZIiQ735bmbS5F1HjwFq/W5HyjNn
Zk8B9cq6nDHD/nqObSD92gz1bT0hIQLRqOTD5ImyA5EKOZXd4838CD2IHJXw
Gseo3ruKbNB6H7sSmoevi9UqM1th+P2+yQsWrN12BBFob135oqcqUI6zZc3y
EZPPH2VNSZM5erJbdq3AIlupVZ80QPV0EPaGXnxjwUL2JoPLdxMs3bqMQg33
KepQV40nAVGphXkFh3914/q19/auS33mzBbR6V7l4qGzznzIBhDNZqhvGqGi
NILKufZRmcAgYBgIUG8YfR83mwi0rPTlxtpdhNtLR/bY65ZL2vclAYumkYCx
S5H+g8+eubTlg82Ln5ZlB4m05EoZnHlsC1sf/5vZAP7huWgRuuBusNVf6Mke
UYm6v5WhRRLAMbp3uJvg6sGtuetO7cBuBY7WD1kUiYoEDlyF7Bqzb89f1jS8
l9lelqO5V1v5nCH5R6rWYUjC7weVIDORWYXNwhY6gPxL75ARXDX36i7c8NpF
ceusEPD1wa7Yh32mpaNeQRlY4izdu23vtkU8pbaXJYWuO5BfhrVufkOthPan
etASwQDm6uMZ7d97R4tgAIOmw4fuIg63t2EdF9tRRM384cwtGc0jY4tFJXgg
PWVN7ftbUjlaFANbPsgooxt8rpvRsuLYihgKc0CcQojlaAFcGC/QcuMBWhgp
jBVGa/EA+CWv3maBdZSsPLB6T1JKLW8G/C/GxxUeqalKEIU/kgSQ73s/pQA3
JLPbxvnDEJTOLhlpjxaSHuTX0QMJ9eFRN6MWEWwQH330kA4zhDnCLP+xk1p8
WXfqhvhd6ZLN+WGzSeyO0x+gZhK9Zcuk8VlfVhVP4m5ipUJxxo44sS0uE7dA
t0hC6fy6knhiivvTDb1fQ58X+nZoMDBvpGnsdkKF8aYx2iFmyM5oFgyaaOwy
k+KHPywHFgRLwr5F0Z+1RY5NvebMDdNkkxFEnJNHX9w0fgkeIXSLy6Yz02Lp
gZOKwhcS/dnnvZ+ri4SVvIioYBv+Qjt4H31RF3/DVpCvaMv8lp5eIQMYiZAL
MoIWpF7xmgX8YUAIBQgJKGO1zV8TwpNvF2aN1OSyrBdxRo69vnY43WR2R5dL
B2sE2hRd5d9unqI//zl1+loPLytRDiHsoQaCXfyTXgOhhKQ5m/MP59Hyyite
7aIrXuMY3RJIcK8/b4x6BZaQSRH21oIM0fmqmlgSTJwR466tHboQ93zTPHNX
k0RnduVrT7IzSaGjc3UxKBY4C0IFnX/9k+iR2tpRsaI5RTXNZzmoWkQdgI+8
6tUIuuJvHOcOTDAlo7ec9OudT6ZPjntalBlsEIIjPALbDTUh3H8hIfAHoL64
EPiDaajtc6hCCLBzETSlZIIqE6Ub7X976MkE8z/JDCwGM+CxHTMHSOFx6KA8
kjQ9ipSsCNKlMHcAcY6aCCngxkSaxB92yilY6HuJfsZufzFnoAKQrB4FtOz1
eI1tLvTG4x7GohqpQayxGxTeRZhRazvGt/fGj11OUhLHWgSniYOIIzTawOnj
ToVFjVN58cW0rNRhSPxHo25FSyaVjghxNPT3EEy0t4ExTAMfaTNUo3p5tMaU
7vb0KSkkMyWUq9X3qVqtE+f0YcTZLw7bS7EgDIbbdH47SG9iSdT9sZqdSYl/
71WtVmHF8HK4Mh+eYf8fik5aFXnSLOd0+NGPL3y3MHkuyV/WR3D6pCyzN3FG
jSHOXvHgVM03tajt2jmnXlfUWKvW1XSHnsePSoUQawStUBVUJrxU0iQSGO0F
X/fgpZw5PBsHjQFVI99+P+T0ydNXV6RPk7zTt7VsaX/EKOIMnCkz98xLlY0k
AdlCxpA1FzvyCfIKggfErs3YHtzCJAJoBDKgRHlBt4LyWyCmnPp033cFWRP5
s7IosgdlC0YS5/AocS+YQEZl6PY8qlf1AA8MwiysxgAvfOCnur8jo8MSBLxH
fBhFd4xqd2g8vpdy7NC6u46VYhbpR4oyet1zJkbA/sXdoPABtq0f51kkjBa9
lKZmi8hDO1EfvQbBMdo3/xeurkNNn2AzNhDJNitqEIEON2tUHqhb8cS5sqeG
Ln9Jv3tFU6fCZgU6LSRRdD5mdMwlrZjdYiwKQ9PtzoriEUIVCuYYsUNf6zYk
04PS6Q5NPlHDwL5+V81sScF+JCN5xJ2i8TPFLXHuGP3MWrboWgZOIUUmRCsU
DiOEfcJOf27EKLsHHhmFKEfvqeMYMTLBWvL16hJtMk4KM4JJ2vSIBwVDkhW2
n9zijrOrGSeb2gILjU1e8PGRDxwB7gtMZiehd0DwERqWZcRjJDR82WkDyZyI
2NaC4DkCH7Zja+UGxdfdjI8rFbITSgWgN14MENwCK6Z4voeYfpOFCePI7KH2
tqIgTWB4GAQqYR3Qy+4Cg4HB7qBX5ZfCU65d7BAIH4ZhGwfW+rAcKVq39rxl
/Ul81HSS2Du1vTgwiWPBg2XoM9RoIMbvV81YfqmnDLPZeCLuQQrWR2lzJpCo
4fPJXFv6s9KA2Zw4Hi5Kb8nXiL9mJv5zEWZb7yM3wf/hW5LZavTFeE11fzPz
LeV5oXcTpyeS8N6ZJM220MLoq71jNXp7nb7b82N/qtf/qIRoZLTqfg2foYG7
m3fmz1cWT70VE7WETLBlkUzbPMltEMOxmZ0R/7mZeA/d/jBqpzMXThzNF4IK
zWc8kOLZLnAIiXMfrA7urS7PvDl+VBGZYssg+Ta77Bi4o1h33Dc8h2haGyH8
QtaQOV9LQSRGuYQIDA1xHFhHwfIZaIvsBUw1+99b5NiwZtPfIodVkdm2JaTQ
ZpfMUNyBxaD80gzFX0/uYFzShBVmiBwFiIDaXVcGbhjE+jJXhg8Uk3Dy+NbM
qorDP0QPKCYptlSFmwPuQjKa4z+YNeLjWR5cKVAQLAJ+qo1a1EhvilK+2MKA
ZbGBFy+cyHYWNz6M7Z1Dsm1zuDDaynracS8H9qUxHG+acXTRAwKqGlkYcA+4
CZSClPOyHhNAE7S5MHzxPC0I6NdXLt+sKMr84Ik9cJmklKurQ9OM9vFf3eOU
8Ei+39FdDq/obomHMFGj4PTxGoYCg8FNyPtzEmqgEK6PT2ui84yx6Z/d5MB4
hitCFwgR4PkV3RCx3ix5o5+QPd1sqn6q95lPv/l0RXQFWWXTAnS7IzBxy56U
al0Bv3JnHEZI0yVhgwqRMuH+EKzIALB8GAA2nQm9zalbd+xG5qAsUmKbLYje
cfRbmHWo9H1d2m+bib5itGvs2MN8BWxhSxOO0SVr9VN/d7vlwYZ16dseZwcv
FPb9VfmY7Amf132qy/NfzBS6G/mgnsMoWEANx+hiM+fjz9+caT7pjCp+VhSg
RZUnaqbbvTG5+tct395gVP6n59JKUw+VlokKXTEW27nUPJl6qOrDGyWDFgte
WlYOXJqxz/GBzstvzVSsRirYySGogC+NikUYaPP1DzYlVDwpCUoSvCBansmP
LBnweeMlRuVfvXgizBvFkkxF6IRKTNzVomo34eTmg9+VD10ieGlb0jO1rjhp
M33oG6Xyb+7mhpQGf+FlhTsBq0gCx85vf3/BGtgwZ8MK274xb9CqBdurj6FX
pzT+4O5LNF3BQUAMgQvWZNXFk320eNdtV8h8AZzMty06umTaenr3Nr0o/0Kd
HzUl93Gb6uBP9o0aVtP5QirY/SA8Wb47DPXo5eqh6RypFdH1TnxIboEz7yAi
Db3GnySwLzq99jTS9/X2PT56p67ffv0w5lztEWyI1yCqgZck2dIbF8ZsxEYQ
CpE/hvP/dogsmmz3792RhmP0KvA1xFw8Ts/KgakR+cGUPrmFhbkfa7IL0oE9
d4rr622Kq4lSeiK8VdIukqB4uhC3ZR9UUGSSLevEjMk1mMOwLZY4qZcGqTPb
6z2NU4Uc5W+1oRjZCNVKptuW3RkZQp+QgGkvJdvnhch6GmBqe6mle1Akshad
TRHr+nZK+r5CoMZxoVWWOodgkaQuuNPJ9e+UFXY0s+vgO1N0C6Rvv6vTeu68
zOvX0IhbsUxPEnGn8uKzKg/f4WHxeG36etp/7us3NJNkgKlIcYw/tfIXciAQ
qPF7EHv/NcnScG6D9pU9L2lq1LmUHu/vLqAuMhSXRKqXOylhkMZvUhPkNFY8
fWdPF+2YYuTIAxlhlBoZT8Yqoo6f0uAyZBRj9sERttGPj5/8FTmbaVFVF1QX
j5eVEqDpsqyz7Gb6Vg9Nvga5iyG+6fJauglR1ekyXv51LgTzt+JxoxVrsMYv
NiD65fVrq2riKpYur38fiIFDX35Z+dYd/bJm+Xm7rPFrY8T3OMhmoQtXN1rQ
cNkNXHZAQ9enIUPqD4uzcP3IyUDP75KvMBLusvdTPD1hT3BhKCNCspTMEP0B
SDoiD/UT3un548KH8pP/AxbusKI=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.0", ",", "10"}], "]"}],
      ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.0", ",", "15"}], "]"}],
      ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.0", ",", "20"}], "]"}],
      ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.0", ",", "25"}], "]"}],
      ",", 
     RowBox[{"SNrms", "[", 
      RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.0", ",", "30"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"dfib", ",", "1.5", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56112943346875*^9, 3.561129445*^9}, 
   3.5611299475625*^9, {3.561130135078125*^9, 3.56113019715625*^9}, {
   3.5611302545*^9, 3.561130323609375*^9}, {3.56113066265625*^9, 
   3.5611306744375*^9}, {3.56113070915625*^9, 3.5611308186875*^9}, {
   3.56113108290625*^9, 3.56113108425*^9}, {3.561131130515625*^9, 
   3.5611312246875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1nk8lGsbB3ARhVSWhJMlWshWR+tRrpSkLEWWFnvIlq1kOUqyJKKIKEvO
ScKQpbIkhaQICdE8h5AMIZTtHut7Pe8f85nP9w9m7vv5Xb9r1tu6G9lzcnBw
dOGLfpfYXY5vBKSG5Wb6hyhovjrbmIbWt2bEDKEjavckaS4h0LBtRHYUPXO6
SC2Yk8DLoMd/TqGZl/PseLgJnOsf51k6TEHim39qVvAR+GiqFyyFPr6iOzYX
LSlYWrQevdxEysqAn0Dz3/29G9A+rPvTt1YQWDYdoaiINuWNkxdeRWB/3LT7
LvSaY2ER4iIEZHtfNxig6xOqTV+g1fh8UgzRId2ccmfWEDBWm3IwRk94BpYl
ixKYkzboP4VujfMdlhYnoOjhnmKHjqWcDTZJEVhq2NTliz4qlyXxDl04sVPv
bzSnaz/rnDSBzEGXwstor/mzgVkyBI7bHHC9hjaUschXkiOwMSQnPhK92uGY
kJo8gfCxhtfJ6ChZQfseNNn3dSIVzdfVXHxLgUCQ2RPZf9DcJ00thrcQWBy7
5fgIPXPEIvORMoGBDw4puWhfHunZEyoEAsODE/PQk1Xd+pyqBJTW2N0sQI+p
241bbiXwJM3L8jm6T9lFQ0yNQN7NFsZLtO2gUkwNOqpt3flX6O6Mkd6L2wks
jCtvrkBT0l43Pu0goMDICn2DbhL0a43Yjfe5Zs1wLfrFZJjz/D4CExuVrD6j
dxXqlDM0CPS3qOS2oZ+58a0+DQSqTi+ZaEfn9Uc9L9pPQGtirSuFTmfGcXgc
JGBlIc7ThZa9a3pCSovAHWamRDf6gZFYRj06eusK+R70/Q9JugraBBjux5V7
0bfK/737TYeA7a7OHhZ6hb/dj9tHCPRGi5f3oyN2btoLRwlcq1KOGaCff15W
T5IugcRXXXKD/39+LtuP6hE4dP3KN9qB8srXCfqG0vS9IbT/P/lKJgYE1gn4
jg+jpy28ArmOEUjQCYr/ib4osb25AE2sHbaOoN3vFPusNMT/L19zfBQ9fMyv
7iV6rF2zjbbzCnVJFyM8r12S8RjaLvRV1bsTBP4WGVT/hXY7oRDubEzgGfeG
VNp+6+P0BUzQUZtnaIeMLgjlo3NFJo/9RkeXO30xMsX54Yx6QDsxsjVlEn2k
YnSA9r+n4GyiGYHDzyWVxtE5m7Pl1U/i9zmy1ol28aTISCfak9XxgHbVm8Cn
V08RGPnt1kS7PmbQV+40gdvtDTO026xMNGrQPnNsqQk6L8oVXE5nCNTUju+l
PTi7pZbfnMDDx2XGtCdr46OfoGUWDB1ocyRyGBta4PzvKPakzefgIj6Bjnk+
dIm2yPa2r3ct8fmyRr1pS3Fqpu+xItC2tdqNtnwTw6kDrTTnaENbLVVUNdAa
+yX/qz5tDdegifU2BOKKNm6nrfPXcGk1usFbQ4S20XKzwHO2BLxNFUbo85i3
VWrxnSVwq4JVSdshXYkvF622zucWbU+vhI/H7Ag4fqJMaQfs54z/jd6mIyRG
O2zl+dPx9gRiByRb6Pu+3dEuvduBwD2Jheu072cf6KPQh7Sf7qSdpy3mIeOI
878lNYh+ni9Egne8Qf/xtFWSdvW3nzP2Ttinn3ue0vn4cuVNKMMZPz8sqIHO
zzc9FV0DF5yfPhFD2j8l7q3+hU68fLWRzh9nsVvSzvMEfGd6iuh8rghlWjPR
rCdf1tMWPaG1KcCNQMTerDA6z4qj4gWV7nieYOY+Ou/Gm9/W6HkRgD+u2dLz
YjmpenMU3TNllEzPk9Ob+4axFwh8H+RoouftipVHR/tFPH/Z5IY+9OOEP37b
+mAfnzEIpee10D6smNuXQKeJcDQ9zy/VfgVkohMel9ym573pY82yET8CaaOP
gjvpflvmJekXQEDZVVSGSfeDhV+B2GW8z5Z383R/GDy9eqgE7Rp37zPdLw8t
b52fvkJAL+vBhVa03vOccu8gAvyf9jt9RE/xPTNccw37+tni2kZ0mnVZ3zN0
7mJPRT3d//x1AhPBBAKMhJbUoVNs+y28wnAf3FdSr6bzUzLyS/A6nt9RsKwK
/VtgKrQAncRYt6MSrV269MlYOIG9oplr6f4cWSW74BaJ+VRJuVuM3l9unupy
m8DpFpOALHo+hOz+5I8hIFj4MfUxOs7RpSYbbSl9qYzu9x/C/iM/YgkMKh7t
pfs/1jlBwzEe+7NY/Oc99Pe1zV/t7hP4MMz4EY6+7nVY2jId88F5+IYtfV71
5j38jzC/8vGlVnSeuS2MS9AHC0V7zenvm+h1Q+gx7rfvz9eboZe+ShmvycLz
Gnvp66Kv8U68U80joCp03OpPOu9paR5LXmAfPuXymMX9PeykGPkErcl68m4a
fUat6NGZMtxHi8liE+i/aj5Qz1/ifbcfzBhGs4emtJxf4z7MqPXoRF/apS/e
Uk3AXUb2TTnas5Fdmf6RQDK3k7Uf2i1L+Zh2E+azwEHFG+0cYtPRj359+M6U
B9rur9qpLc24X6r9vR3RphmJigWt+PcLUcpm6L1XdsWXMwm06EteV0MvV/F2
bOvFPutJ+dY/iPuUN2vS5zvuEzP16W9ozu8d18T7CIQcEOH5ip69p5VizsL8
8voLtaJHuEWavw0QuHBMhvUa3dJZqD76k8D4WVW/u+jUqLGVywkBZ2cRQ0Bb
dzyWLUazjOq370HLKlrtdGBjH32uF1RDZ7xvsKiewf7PyCrehM7jYuRcncf9
YtVdKICu8LM/yuZkg6R7wTnqBwW99lTooAAb9APPNLqh5TWq5+rl2PDWNoYR
PID7TUSsy3cDG1g1hbwB6OFBl8oNG9nQ6etncxGdnyAcFrCJDdPpZN4OvfuX
7SolBTY4bP8weAitk75ENlKFDdsohTgetCMfHD6yhw35c4IKwf0UZLaVxrw1
YMPLZdneTiwKXJrHm6hLbCipSzkr/p2CyNd8BYb/siFtSnxiZw+dfwf1vjo2
FJVE5Cp9peCwTq9rzm82DB+wZXVRFCx47oPPkjPADq+0/tWG+3ThvzIJ7Rmw
F240H2/G+b5sxqz0nAEpg70T2o0UJPVOpCQnz4CnjnPEyVoKtuS2rYirnoHe
/hNHvKopWOsYv+7n6AwsJB1kfHyF+Q5LbLMVmwWN1ApfzVJ8XvG+2/7SmoXs
Ks3UoULMS5S/2iH3WUguu7DvbA4FfwxUdLkmzELmheWruTNwf2z/rjRVNQvy
64u7m1OxX3p1NyQPzUKOgvzWtgQKFv0/V3kLz4Gock58+W0KSrj2chZozIFO
rOnbt+H4e2eUNbT83Bx8WVpXJxpEgUCD26Wq2DkYjZAwD/TFfRMrlplXPgf1
2VwaDe54Xy94Qkr75mCk1SPu0jkKOls/cWwUnAcv11dXlS0pWGXUszl3zzy8
HRoPP2KCv6+KhaYcbeYh6/3sDks9CsoF1tuH3ZwHwd11QT4HKAh9d+FKxbN5
6ON20uPZQwHD6+Fu8+55eGljoxerQoFw0NoUEd4FiCw6eid5A86fT24mx7YF
yLmqeiBbggJlKxkTA/MFMNrP65m7CvdDdjujJGQBpmICnu/jxr5huTwMyV8A
rWvfRcvZTGDyyR4I+W8BOolmuOYIE9xi10WmcS1CdIekkk0vE6z5Jy5KqS6C
QoK/tlM7E+L7V/GWmi1Cs8WqPuF6JlQw9LWuBy6CSvjyvc0VTNCxcZQpzl6E
0AF+hQvPmCDs/y6Dq2URbt760lSVyQT1EK7GgoVFUF15XWksiQlHgyp4itFi
rJJ/RtAnr1yGl2hQHhT9ib7kO51fQ5tXd8kgOt916M5/6HWEu60Xvcmk5RT3
4iI0FFgHtqNXb3rYdxLdmJj16RVaWs5ayhKtdKpWuxytIiNpdhb9JXygrAyt
K5Hw/jxafOfGjBJ02MpIxjW07vsE/0L07JSXZw6a9cFGLgPNN6GaXYA+HuSb
mI4W+zX8rQgtnBEt8BC9c8jBuBIdv690+gHao+v0rjb0s/Rl9ffQgR1rPf5D
U63imonoaGZrZjf69EXFortoRouBxBDaYYl+2h30iyb+E2NoMmK+Jhb9vuF9
5CS6V9c14ja6vS60ega9RezvxWg0692B+UX6/CduXIxC/w9wDLxX
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV12c8lm0UAHCEiEIpUioibxFpWx1K0VJSGdFEZCQzMrJnCinKrMgMKaTM
yijK1oNkV0aljPt6jOc996f79/9wr3Odc65zSVy8esKMg42NTYCdjY2+iu0u
wQsFBcywxFutDGi6OfMpCR1iw/bnITqkVumhBjsFkVu0lTPQTKOCbb4cFPTM
nnpThWZ45Jhyc1HwgcvRmYWOeZtcxb+IAvEozrdX2xiw/FhAyEphCgzN68sO
tzNA0PzY0m3/UfAiP9No/AsDTP1LK6v1KKg8JC24pQufv9Be3NWdAu6fep2N
3Qx4YuKaJ+pBAVdVvlUnWif/5v4i9Jku9akB9OOzt22mPSmQ4Bgg0+gjL7NK
nLwpKDui/1r8GwPiL343sQ+gIDxfWcYCrV5inGB1h4I4fZUUCh1or7X27BMK
DnScPsLTy4AplSYlvhQKTm93FhNCm3OZnCxCl35t7l2JPhBjH7z0KQV/qw4b
y6I5S+P/VaVTEHhLiU0H7cM7Ua2QQwF/iSVnJNo9KcmOvZgCfd4F7Mv7GHDt
E6l48pkCheKDfdz9DLBN33zsQAMFm35lBC9GX/G70PUdHZKmLiuMNlWundrU
REE/D5+JBPp0aoxsXgsFSb1SN1TQqp67oksYFCyComRbNI+8k0VbP8a3r/BB
A5qLN33SZQDjGXs8uA3NMdDls3IQ///ef/Zd6JlYzXjjIQqcy+5v/YH+xSXc
1PeDAmkFd1sWuvnrc5XfYxTcLklrkhtgQMKtP0t4KAoyZIZ1fNHnu55KFqKp
HTGTQWhJ2XM7zQkFYfsjosPRqTX1Ju+YFNSKm1fEonMWZGbdnKOAkZpak4Mu
dzU7RDgInC3ui+5A95t1+A8vJjD/aJ+87CDe/yIiNnYJgS9h0iwFtMWCg9na
AgTi1p6v3Y4eTSpsSRUkEDzRc3APeqLz7vpLywgcOiI+cxzNfeJYRacogVeK
PWuc0P/teTdbt57A2qAQ2yJ0iLDot+tSBBSPVBm8oZ83bFUhJU2g0ypFtRyd
e39ZgPsGAlFGx8ar0bvHLwrIbSTwSM1kSTta+wm7ZKg8gfenX4tMoDPcTnHu
UiCgL2cSN43m100f6kPbfk4Tm0E3zB3PVFYk4CIGnBxDDDDQT9o+vI0AzyKH
UAG0xSLQOqhEoNjtxJWN6A89kRsn0ckuFcFyaLnCIb5kZQJVz3seKaD/XApv
oFQINHopVu5AXy/5api2h0BWkcxLDXSQnbv1Qk2MZ1m5tQE6re1VxHsdArUF
TtLe6PulBUNmxwgc25yn54sOSM1X4T5OQGLc1d0fbeqcPXhAl4D9sxclweh1
K5KVavQIDK77Mh+Bjj0V1PvBgED8z7XuyfT71Px3WhkS4NLT13tMf4+0Tyif
EYE6dQnpFPTpyRs7jpwhsGLapigNvTT6anC9CYGGsX/xOeiQltOKDRcxfkym
6Ru06xu9ALtLBMLLvQdL6Pg8Od4paEpASSPpfBn6gOMhf10zAvvKUg5UojmE
9zCaLhN48bGzsRo9PqMs72BBYNJno0wtuqd/l+8ySwJ6t4VcPqBL8xU3n7yC
+TSRx12PdtOT9m61JjCxWG2wEW2pItnmZEPgQYi5QDO9XuvXyq6wJfBmSm57
C3rnP9HW01dxfYYjbNrQfyP5N365RsDb+H1iB7rXjdfzuj3mh923hE50w0Xu
ZlEHAhlLYmO60M+2snkYOhI4tX30RjfaqulfQ4czgX6NVRx9dLzlHbOCXDA/
+nu+024JngjceZ2Ak7h+dT9aTWNyT6QrgRhufYdB+v1xTmLqbgQ8gnthCJ1K
TU6OoRfprOH+jhbInco66I75qJnr9QP9js8laBp9+RD3tp/0el2evpTiQeCo
smAP7d41lBi7FwGxmxoyI+h7btennqGFMywraB9qoxqNb2L9mGudGkXn3yJB
Rd4EPqtKXxmj1+unq6m5D4FLshtGaK/ezwRhXwKbTnab/aLjkeS2qhK9RkKn
g7b/LHPqqh+BA7NO2r/RygY3msT9CSQdO51L+1f+TPZHtJT/b6E/aH2rWVOZ
QALpe3QqafNXu6u3oqPvCQuNo8sl51b5BhG4fz3akLajp8f0lmDMV53Gh7Q3
dsw1daMTfWraaXfv8HwWFoL55nlj8V90ZMR8sHIoAaOsYVXaB8Y8zX6gJ5xW
mNOe0Wap3wsjcHA/K4h27hOv1Zq3CGj4paTQNsXNdRz9KY73DW1R45vNieGY
75RsHe36Qraco7cJ7ORY3EbbZ5l3yAy6RzKbQXvnVXbz9DuYz+/422kPf/DW
0I/A9daV+0Q7cQOHOFckAatt/GW0T/r4UM/RPC1Z6bR5ujlazkcROBm/JJz2
GyXfnCV3CWwgita0r0UvCH2DPqcrokl7w7iv+ZVo7CcCZctpdxzh3Ct6j4BB
wsZeOj7haX7iVehac/1U2vs4uYjDfQKkSduMNnXOv0UihkDhkXlx2lmvuXI/
o7+oXW+g1+e8SECoRyyBLYKF7rSXO3Bfln1AwGfza0naHz4F7GWgU1l+lfR6
e25auCbwIe4Pf4SNaX/vXdjaF0egvCXInc6XOLWg3DvxBMYf2iygfTyWJ2xP
AoGW/8T86Hx7dZx334NEAh+U6+zp/AwtW5Sn+4iAQkMi1zC6Tm476x+6dJ+h
OZ3vSx6YHL33GOvnR3oFXR+Rjrk/O54Q+Ci+1IKun5iNpyVNn2L/SVzoOEDH
556XHXca5hOnXzpdj6s400vT0HKHHzDoek3onjEaSyeQ1hy9sRf9JCo5yjmL
AIdSU9BX9BDbx17RbLx/iUwU3Q9kbCcUXqO5nURj6H6Roa1Vx3pG4PfhpggG
nV9zo5zBeQS6AzM1W+n1vLzb+WEB9uuLkPYRPd9y4Z1aIQHDYH9jur/B3tCl
PejMRBs+uv9Vru5+JvWKANu4lGEVuqbR93v2awJDwUovytGtKp8NyssJjGXt
t3yBXpFOpV6sICDE3lz9nO5/KyQnOSuxXyUvlMhDd/1xjDj4FvcPcYu32ei+
FLEPTe8J6JoK1KTS9SpgrjL4gYDr9r2N9+l655Qz8PtI4O20yUA0Oo+MO66v
w+/3PPM3iq7Pfo9nF+qxX4nMzd9Gk4Joie7PmP9H+zsC0Zxn3y9sb8H9xMon
3pmO34lQKedWAp47es46oqu1dDWWtxG4WC+1yp7eTxS/uum1Y31kXPKzofsf
1+TYZwZ6pHylKVosS6qlppuAznL148fRs0nDfy5/I7AufEv5UfTX6NzFC3sI
LPjGL3sYneSlqrW/l4Dp4ZDx/WhpvZPFFf0EtNcka6igtzB9k4p/EKA2+P+S
Qmtp91tn/SXgfNLIg54PfuXKCRr+w/isTeAaR99d6ZzPNYH9Ytu/wDF03zAP
8+wk5mdjk9sQ2vOWfKAQRWBuncPKL+gXTa7JznMEmocilIvRkiaCbeo8THhz
YYWAG7r2vaHrGPqW/KEOet6xk3+8+gEvE+pE4hKvoUtZOy79W8QEf8ZDUUu0
4aMzf1IWM2HZsRXv9NF3vqcu4lvGhMKU4+z0fDV/TQ1axZlgV/hU5AfOZ1tH
FU45r2HCCY3N7v1oc3NJK5G1TDBoSOjsRn8yWnjfcB0TNh3SCm1Fx+9r/PVV
kgnalQXZlWjV5WYJQzJM4LU2YD1EuxWFzU0rMuFe1Ej7IfT0fOdrsQNMWFXl
YBeL8+efUV2DWrQM11bhKPRwR/WEixYTrm4Veh6G7irI39yqzYTvs9u6vNCV
tqGJtw8zYa51xbAZOqxb2ZdTlwnmL7NHt6AlS2MP/TrDhG0JbHcqcR7X8dBn
VFxj4ry9y7wF5/Xvfy01beyZsLRVsLgOfdPCPUfUgQmBL4143qPz9ZL9rzoy
IWfN3rsv0aKbRhTFXfD/LK9Y3kP3tnmGXHdnQnykC68+2nFLqopCIBMKzimt
b+lhwMP+ifi4OCZcOTDXVILnj03Zbfx33zFBpeSRvftXBohYRK8e+82EV0a7
81924H4TENN2UXQG/m7fqNOA56fm6OuKypozYOTj6WDYgvPULbdt+6/OwLXQ
8qrEBuw/P8q/Wd+fgdvNYie+1jFgz/YBuanKGeBv2/fzRg2el/oPS8WNzIC7
l+US8XcMYLm1Vjotm4Wrg6NCkWUMKFqgypG3ZxaGB39WninGfPs9NMJzeRZq
Zd5nqbxkwOJ6W+fKyFmwPRq3wjyHAcaRomk5JbMwoCbdYJqO+V3M7fdqcBY0
PVZ3hj3G+mlpZJMWmgMpgehNE3FYfyd6ZbKV5oBzt19e+D0G7CpcOmVxYQ5i
tdoMhO4woGSxhFlA2Bx8EnnAUxuE80C1g2f5izlQY1oz33kzINP+8W7jnjmI
+prpP+bKgGXeIvHCvPOwdEDI8ZI97mcu2WlsivMQ+P6tWt0VBmw+t+6UjvE8
JEmufmBwkQGyGe2ZRX7zsNyaj6lhhOe/IavHfrnzsMvpiauWLp5nF0nu9euc
h20PBtrVtfF8Frk6NGkBC0IiXDRTAfcvvgnHNQosMPNQ/rh2JwOivwvwvtJn
wTif2ObFm3HeyDyqGejFApWT8Xzz6/F8cMFiXWEGC/i76+tmVuL3ulWnLmhm
QbTNtRQ3QQao+C34lDfPgtPsqpZs3DhPeZdzF6JL875Is7iw33p6wBt0yGvH
vjm08/Xp3Cq0amfGmRl0rvVIVCd6w2EBnSn0hlPNhlwsFgSMFW0dRQtueDxo
gJZTvz3Tjl67/vyas2g7cZGiNrT8OnH9S2iJkwmOrejDYvdrbNDt9RljTeiA
JaGZPujwv6+/1aNnpuyvZaGL2MvevkUvmlDIyEMrOqverESLjo/2FaAlNV+p
VqB3jpifrEBbj+a+LEXbfTPa1YYusI15+grt1SVi14meeyZoWoQOZ7Sk9aBL
tYPWFaIzm3XERtCvgpxiX6CLG/j0/qD/yo+cykfX1NeETqIz5c8vfY5u/+D/
jon+FtjyKRc9VL13joW+q6wdmoP+H/cXTL4=
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13c8lu0XAHAjhDLqFcpWkSSlUngdZFSKFIXQMFLKCi3SsFdWIZtCIhpG
RBEZLSncoSGrF4ns+zJ+5/799Xy+n+e5n891nfucc51L+oTLAXs2FhYWTlYW
FuZz5fYK/JiG5ztHvZJdKGi+St6noddrXj5Xgg5p2JGozToNrI3ipz+iacti
lRts0zCWlq/H4UrBF58CO06OadBPWCg6g45/lf56Cc801EtnX1Zzo0DIOCBE
9J9p+LmZSvroToGAg/EyFflpaNU9oTfsSYGdf2V13cFpMGy1Dbf2xv/nche/
6D0NAxbRRXPXKAh0N5C0uTsNFhNn29cGUuD2fqbq7odpYEs0iDoSRkFK+Ajf
4ulpmDsA29ojKZDXrJl9KzsDT3P6R0xvUZDT+iyq1mgGNn8VunMogQKn5rGm
dq8Z4NVcy1meREHoC55HJhkzkG1bn86dRsEwv4N6b+MMrNv9sKMugwKDXd1n
8v7OwLtvkxVr71Ew7/YvtIjT4HIzQfxoNgWbhzaaeUnQ0MXKUeKAdnCQcRKW
pEFJw9HQGf3ekivOQooGFlFhex908s6Pw19laBjqF7dKRGsI2af0ydFg6cNr
0Yq+VBo2N7WJhjuhOyN35VAwNd9RvlKfBuEzfOwS9ykYGTIxb0D3JtT2rEYP
tNeNnzeggVs5++V6dGfxkw0tu2hYMzLgsANd7RyaetOQhiz1K2dN0WHf1G4s
MqEh7KukbTBapjJhz/ARGgqkH/4dRovl8fcnWdHgd9By5QRa6I7/DUNrGjJf
qWsQ9GIvt+c5NjSYPEt15sql4PeG3Uq2x2ko9pgIl0SXJk8LUg40yBPZEiO0
kc/hL1VuNCRkDxbloPv/ntI9606DgYY/70P0VUfvApFzNFhtjz3yBP3kYLq/
iwcNxx4uH6xAiygMbhI/j/EITK9rRne1Xgm54E2D3h2t8wTtoZylvjGQhn7f
hse7HlCwNKs0qx39pODh4X3orFVvBAOCaNh7Y/mUCfoL50h/ZzAN5tbWa46g
Nb/uiA0Jo+F8Ew1n0YtD3g31RtHgZHT3bCQ6sXs8OSmJBimH4bxmdPXpwssa
yTSY0no2rehfo04Wneh3vl952tFbWLr/EUulofPkO7Mu9Fuxj6GJ6TTE/i55
/Ac9b5Z/8U4WDdvaRoN48yg4UW9vFl9IQ6J+Qw6gg4ylVbY/okHiSmq1Dvph
a6cAhQ4bqWjTQ5Oeg2+Fn9CgevPzmCE6llVnZ1wRDVpjLmOH0a/VJDbdLqPB
2zhBwAWtkN+6JLaGBkfugJoE9IocITftWozX9VVXktBsmaYtw2ib6Q2bU9Ff
4puTd9fRsH7dm+C7zHr83istNNAw9e3P5EN075HX+09/oGHcV7GhGt10iKNI
GGOXbvxMoRb93ERXtBbteKI+oI5Zn0F1l2QzDX0Zzkpv0Toqle4tn2kwftOj
3oJO4ymO1WqnwSGmyrgPHcYxMf0bLbfmjsUv9AWWLdaJHTQc1qKtB9DGk4/W
THbScM7uwKFh9HxXfvGD7zQ0JjtxTKKtnt2jVvRifDJDrRflU7DraY9GDXrb
oUUCnOgtBbLpbn24P4q7ggvNey/91Nt+GmTuPOfkRZdFJtPXBjD+xo3mgmhh
x1tiv//QUApNU2LoSA+fsYgRzIdpHQ0J9OJr9o3KozRcrKcvS6LphK0XPP7S
sPiV2m9pdOeblk9knAa+FPa4tWgzqiI3eQLzPTarSA79vufeNZikIe915Ad5
9Is5z403pjA/R9UnFNAZG1eE8tBYX53jXBvRqzTmj+ehZ5W/sCijY3f1bTci
NCj3ck4w9j9e3Bc1i8/7wofNaMeYQzqiCzRUTCkabkN3pWqKlqMr620lVNGW
eWtHrFgIuIv3DTE2rJ1MTmMlUGn7/vIOtNLU7Rm5RQR8f2w5roHOZvdtakDn
GH7g+xctJXAy24mDgJBNSQljwXWqZgWcBC6HuBFNdMhWSUUTLgImG3RvA5pN
h4t9DC0XbK+ohR63bCvcxk3gks+tPdrosydfBFLo1pS7zYz7zmXbXOIh0BHC
fkgH3RZ2fkklL4GEz4+MdqL3JxztPrqEgHQ5aw3j+nsGZaxLCcz4ZGzRZd5n
pbCjHh8B1dw2Lj20ypsFzX70qaQzpxnntfULBfMTCPY+WM84eaTk1VsBAjwi
Il766BVzqXecBfF5q8laxhHcQW4Cywh8T5UTNEBflTGXNF1OQFDVL4HxjJLW
5ATaenlhK2N3dfl3cf8QuMeizL8LPWAgcHeHEAHtnYt2MrY1nb7UgY6V3ODO
uPPYDxOfFQTGv+QmMTY9Wy8vKUygptinmvG7i4ULL9G29L1uxvoB8a0nRHD/
/8my7Eb7cS7askwUf3/thSjj6gCXqCr0GY+uDYxZuDqGXVcSEBMJ0WAMgfp7
pVYRKHv1TI/xFa7H9z+g1d677mb8PFCcy1eMQExEgQFjmivYTkmcwOMjXlqM
tweNV31FB4TVqjD2WnxMMlyCAMuFZGnGT4PeeGtIEuD1nOdm/HexavsgOqb9
1xCzfuXgDNVEKXx+waqRsTM336090gTeqx3JYJwXfPHvDNqku9vj//Hj7jW+
L0NgznhKm/G6kP355rIEitpucTN25HnOs3g1xv/jizdM/LNC5BxL0D0xnkGM
e3hiah3WEJD1KgHGMqHzMivWEmD74D/KvN9jvKev1qIdJ34kM04JbfnqIUdA
WatBl/HKsLz4T/IE7FJ0rjP5Yr5EZPL6OgK3jn4WYXw77MbBzQoE0tLG7zP5
tzzcki9qPYG6ua5yJj8PLH3tpKVIILyuQINxZPimhj/ojDNLS5n8XhKx2M9I
iQDr3YspTP7v4fPomkNPdAdxMw6K+K6Zv5FApOU6F6Z+OG4Wz/BuIjCqL6nA
1Nf8TTuXBhUCJxJ/2TD1qiHQ9PbCFgJG/KEp6uhLkeoK8lsxPq5VlBp6KnJZ
b8A2AkvNBjWYeh+Jemmpu4NA7tp/a7Yy9b9MsXQMnXktiNqCPhMdJ5SpRmDW
93S/Cvq/aOcmVg0CTVVj45vQP2PE9F9oEhBoW/1hA/rTrQub1HSxXyjuu7oa
/Tj5qnUfermqkK4ss/97QcHRegR+ij5gk0HvLYrvGtAn8F+htivTT2s+l0Yl
7iZwW1x26Uomn5bPjM4a4f6L5vfxoaNXsUrcN8b8edZYuQTtKsu9x2w/AZHi
UwpMP1dUEc3INyHA3SX9l+n3dw/sOGBjSkBh4sZOVqZ/Rl18/MKCwJ63h4b/
4vnhnnDtm5Mlxq/2wpJR9P70YB6RIwT0Wt3X/EEveZRwwtUK9xc4YjCI9mt6
tkz6KHrlKuNutCc/7X7djkBonodDM/pQ+CUVPRcC7de8yvPQVVnrm3vRTvDi
WC5a8WWna4ArgYtrYllzmPN4TPNhnRuBaI/urZnM+W/Ovm6PB+bXcclTzPnN
tTpMwvgi1kOoPu2HLi1L5ra4QaAwRqbBHC372ShnBn1q3PWHGTri94L+HT/M
x/qDYwfQdlIn/Dr8CVR8buPdhxYMWLtgHUTAu/wHlzb6tEnB+IlwAqYvNirK
o1f9evn9TBy+34PRcmM4v+z1nFi0Kh77laP8SWae8WZTUGhAt6y8nT6I/iYW
47HmDvb3+zOcPeg0E3vub0kE/LMGYj6jV5dzqxhnEDAfqCh+ilaMOBCwKZ+A
aOB5GTdmHtvSozhZTeDIyYy77TjfzTZX1cS/IvB03OhvC/qZW6qVeg2BBx8j
1D/mMue5ZdjVWgK/Qxte1qEVFD4O8tQTcPbefPspWliqMlfyHfY7Cb6z4egR
3nj53W0EtIoa36qjM7sNVycNYv0f3GUbivMtC8/rEPUh7FdlfEX+aBtlrdF2
9NOfd9muokV8tlSKDhMIuqgd5YGOWCFuHjeC+6nW8bZGX9o9HBo9QSCuNzlY
CW1SEDkWtEDAwf78jXc4zy9caqn2XD4LFuHlrAs475eya7A90pyF7A38lpxZ
mN9/+gYXn5yFWTY9l4FMnGffOXtVR8+CXbnGnsPpON9Ei+QUVMyCmapUeEAK
3lfKOP2e9c6CxJHszHuJFHz9/JFljeAcaGjaSGvHU8B/oEsuf8cc/Dxpdag1
lgLVkmWTjsfnwNN8Y6V2FAUVS6XtA8LmYG+KyxqJcJwf6s5defl0DtJa4iM4
gil44J653erHHLBf9Ywz9cN+dk04+R/ueRixaO0u8cX72Pn8HJZN8zC2c+gF
uUTBhqNSZkZW81DWWjKchPe79bltD0r95sFRseDyCbwfBvY5ZfoVzgNrwECX
92mcN3lkdPw65sE/TYj/gh32/2ix0DT2BZB2V9DNtmH68biHxMYFcCgTGJI2
p+BWPz/3s8P4fZVcGWVCwcsH+3QDfRfAVen4zauGOO8dd5QqyV0AwcJzWk66
uN5LdVnsnxZg93tp8bR/KVD3Y3//aH4Bul+6VAtsw/567SVnCTome76NH21+
xQeeozubw37zob0uTBW+RmtOZYksRReeGYzpQFudb3bmRq81+2TBsbAAWmac
q9jQAmsze83R6qFd7mNbKZCUPSZhg5bjtAj6i1aSEj9siy6r/ZA8ijZcGVd/
Ft27rLz+DzqAL/TBdbRub5DEEJpMurvloVNPszb2oHnGN+Y+Qh9XPvu9Gy0y
OvSzGN2mRo3/RG8bdDCtQn8Rz5PsQrt+t1RtReuJGXp+Rft2Crt2oDO4HoV0
oiO+fM75gS5VXZHWgX7wyWjlIJrN4VvjF3RZE+/BEWY/dto/KHT9u/rQCbRC
duZEG7qt0b+GRjcpcfAy7qvTmVtAKxF7qVb0/wC+tod/
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13c8Vl8YAHBUiowQUlZSSVJGC/VEA4mE147IqIgosxSSREMatImkJCOz
n50QioibUkJpEDJfnOv9Pfev+/n+c+45z33GPUudvc1cebi4uAS4ubiY5+JN
JfhgQ+moZH74hzZoDp1+l4iWyQw/+hgd/WbzHV1uNpxdECDXgJ6yzdc4y8OG
rgu0r3hrG7SHZLrwzmGDXFLkx8fohFdJ1QL8bMgvenGvvq0NxPdGRkstZAMn
uUFEuL0NFrjtFdVQYoNSz830c1/awOVcaWWNORvW6ms3/erF9ef6ygSdYsNg
ZfGDfYNtcN5XX84hhQ3feUTuaE+0gc+7yYqURjaIzB4KPs5pg/uXhoTmsdlg
3PMit4aXAqWtVaRh2SQ4hmW12wpRkNZWdPW1ySQktT408RSnwKN5pOmT/yRM
3EiuylpCQUwZf/a+h5MQq+Qbq6BAwYCwm/aPuklIPj4i1rKSAn2DHs9nw5Ow
6/djS6k1FMz4bIFWmSnw7NjpckqdgomZz/8t3jUFa+0KTTU2UmASYtVe4TMF
ApZuJye1KbjTM3rv7t0pmDcstcp8GwXKGW0C16umQE8+p1x8BwWSh25I/x2c
gj8dd2spfQp2RSa0OS+ahncqCXcFjShouRGoprVjGoJNIldtMKHA8lKwxk7v
aVD79V54xpSCJb/KOz3jp8Fcu7vX2JyCrZrfVcYrp2HNT4e8MBYFyT1Ginf7
pmHv33ld+lYUcPFXR2v3T0N/ts0eE7TDum3/PqFdbM6/sEAvCtEslRqYhnWy
wX5O6MsSMtbxQ9OQvORVTTA62HAgJm5sGvzqhVOfofdlxo5EcabBa9n0bkFr
CjjBrZV+YgRGY8x0K9EK4i2ZCgsJ9PfZLq5F78hsutuI3j14beAtOrqn3n+V
BIElvQlR7WiJPZXKXxYRCCsZCx9Cq8pkxu2QJVC0X/OqjA0F9mVRzmKrCCzK
uCJ+An3GJnJvObrMfDUrCP1w5KzOUWUCFQ2cK6fRv1aekahZTeCZtsVEFPp4
rF9dsCqB5vU5F++ho52c1bs1CIh8O9n8Gl04S4cneysByxULGkRtKTiU2e1k
BgSKZ1PLJNGL7C5UjKBnvTkZsAQdmNMWukGXwAfKUVQRvcnJh/PfdgLrO+Ml
1qMLSlNJtQEBrcXj1pbo/CCRiQ4zAoWOndU30G7LCy1PmxOwmnpz+xZa4r1D
vpwFgU9yt47cQ/srPfNzZhHQ/faDTkFvoHaN/rQiEMgLIy/QeZqn/g3bE6hy
l5V6j84d7O2b505gi+cc83l2mG/CIs0FaP3ZnX/mox+oahe6HSIQxfobIoyO
PnolouowgWXqT25IoB37NsqEehIQ2/woRhHN/zPKZMKHwKXHv68C+sBX5ewf
pwjE6obw+aLbaIv46yEEVswcm+eHNpI5E7L9NAHVn0k8gegN9i2GSWcI9O4p
/hWCnv/pZLd9OIF59Z9OXkDntzaIfThPIC57suQBWvCtl39lHIEW4YQXtWiF
E+tXe10j4O0aIVyP3rSEdEpdJ6Ci0O32Fu18+IKhzw0CL5uG5zYz681JkZZP
ICDB8Rb7zOx3a3tlyD3Mv/Mipv1ovx8PAlbdJ9Ctp35wgDn/RTeVVvS6g7U+
Q+i8TyM3VBIJmLSwwkaZ8wcIHf78kMDQUXKYoHMztwtvTiNg55XlNN+egjeW
/FXf0bleO1UE0V/ppsDYJwRWNpsPC6H59jh0/3xK4GPFl2OiaIdfgXk3M7A+
IGOjFHre0ud2ozl43jjf/uVomdoTCxJfEODP+c9rJVrdW/u1US6BSrXwfiX0
/pJa1eQ8AiP7oj6tRufY9HCbFRJwXRAaqoa2j1uUllmC9WTHGtVGz+yOatxb
SuCxaZzUFnTiLPb4IHpiS6/WVvSPE9TOdeUEZt61+GxDe1nd7MmqJNB5vD5r
B3rBAt75+14RGG56nb+TeV+tn/o/dNerj4W70BObWWFqrwnYahlmG6BDpRfK
5dRgvYnaHt+DVmg9u8uslkBqjaytMbrq0sjRYfTpLFrHhIkPp7lYvY5Afj//
xF50XNdV2xcNBOYUHtIxR2ve5g43f0vgVu7s2RZoysznyQh6ILy4hrF0lSlb
o5HAm4Oh2y3Rj1KFb+a+J9D+1UHABm3geKbEopnAmEhnLuM/koPfR9GPc0/Z
2KJVL7zTWP8B9yspEm+HLvS49D6vjYA9Se7Zj7ZVpNksCuvPQvyoA5p0eMqP
owOKHg0z1jXZ472hnUBasOKwI7pu3XzBgs8Exs88qHRCe/4O1rTqIKD8R2iN
M1ro4R+7CbQx5/41xuZidU83fiWwbXIp6yB6vH5zM4X22SmexTgh4slkQCfG
d77yXBd0x1iUQeE3XK+l8Anj08/Z3tZdWB86GmOM5d0PxbPRGwYadVzRlXIf
SxO6MR+lr4Qydv2o37upB+Mxeayc8byrBYLtaPP//Ajjp4Yr1wd9J9B37Z6m
G3rgJW9E0Q/sxzZWtxhb/pxUc+8l0CEc+oZxqdjfzoU/Md5lsmOMV2z7dqkS
bZuuIe2OvuTZon3sF4G9C8u2Mh5NqP4t85vATZ0Ke8b2r4vi69FSblr+jKv+
PdsZ9Af7fbNyDGMV2cSRFX0EHKvi7jC+vvta0gf00Cnfx4yJf+Te8H7sb1vr
njN2SQ6i1/7F+O6+nc24vtEz/Qv6T3d3JmN14mgTM4DnN0x5wvi2kvnczYME
9lV8vc+Yh7UrrxfdFR13hfGRsM0Hrw9hv/xVdpJxc4aKiN4/AorS7gcZa32S
KxtEX3aP2sX4Ia/Y0XvDBJ4LKC5nzKfBu8RoBONhrMVh4nPMcbKWjfbxqP/A
+GNMv3/qKM6jNOoR422FnYoWYwRs9B19Gad9b27mHsf9RDlrMV4gUh2aiTbI
7KKZ7xW4pUh1/wQBJ9JRzFj/5oPoQjb2c1HDNYyfV8ZtcpskEOLw8iuTHxKD
53rFprB+PqbFMO7V99TzniZwznGGYvLN5ITjkDQhYD3oGsA4P9Hsfh06MddI
lPG5yU1Ty2cwnr1xWkz+9i9XSWtBx1OjNUy+W5jJWYZxsL/PaTNlrJg+J6eD
i4Z4GUnWAfRFiu0YzU2D9cWAJqZeRmf1C27ioUEZrPUZv7JvPnxtFg36gXdW
MvXlLPRg6W5eGuQ91uUw9VmnFdc4gVZZc5uPsbr7uZBHc2ko0Y20Z+qZu9yj
nYuPhmeHe0etmX7ns+lqwXwaBnrfDrKYfL+/GlwFaPDz3reMsXed7F9RQRo+
WtuYMf1k67I5hl5CNBiwJh6aob98eM+1XISG4BXHhZj+1CzqtbQG3X95myrT
v6pN+fUOi9IQm7dyN9Pfshr0zmaI0eAutsPfCB1R9WLOBgkafv95+UAfrZx7
g19/CZ63tXEjoOWG1Vb/Rperm0kx/XjhundGMdI0qKf+G9dB0+m8lxplaAhM
iUrVQjclBwhby9NwipKm1qP9r9ksPLychoQOgdPMPPB4P6Y5fwUN5qlBS5XR
B4TjWBlo8S+8Fcz8MIypu/lvJQ1B7mdHmXkjfVZbKliZhts1/GvkmX7hKyMb
s5aGvuNh38XQwmZdKzM20yBkFeHFxvmXIrlYco8WDXLcxQ/GmXn8xYy3D22+
RvctMy+dD1V9V9KhwaFVU+YfMy9PP05K2UpDRk917G+0TfrRJXe30+AyVlHd
jk6ePSUUY0zDsvzj3gXMenXqM6tMaNgyt0Q5D91wxeNvLTpWwbY7Bz2++Es9
rykNeaGxu56jDdTKo8LNaOCxGelOQf/dH8kTbEXDhUMlHlfRGwtExw850TDt
UFnqjo4beuch7kxDYbrVGxd0/6qYrgr0OlZSoxM68e6st4tdMF9LzRrt0PPC
R5Mb3Gg4/1fzzl70xz1t+9Z50vC5TtV1Azq4+1bGhD8Npq2Fr7jQH5ZYLksJ
oOHhB9ZOGv/HVFmit0wDaRhVy6ycRHfXREc8CaLhCm9C1jDaKOOknd0pGrZL
Gtp8R0sH7ucrC8N4vj/wtRpdIrjUNfIiDTtYK4qi0CnWkcYrL9EQfuTfRAT6
YnLf+lq0lJKgRhjadnM+L/8V/H4eG+8HocddjNIuXcX4vrI3OIJeW+zXd/0m
DUYSi/p3o5OO1PkkJ9LQebDYlw99rub46fJcGh7pi0adxP9h9Uj7v155NGTO
mgzwR3/dsdNeJp+GQdfbB33QmyoltIILaKhWFFJ1R/8pLhrTeEmDf0X5FTO0
SQ7H83EZDSeXXoxUQi+6F2N3uY7GPI7a/h7/79N9kzfZf6PBbM4ZPgm0WJjk
vYV8MyD9yeVIjCUFPgEZaVxqM9D628imyYKCNY7yLBP7GRg2yKvJNqNg9VMq
vTBiBq65+oqcxvvQ+V6P5IisGXjR+ivtizEF7fwKehGfZ8Dgt42mAN6nvOKk
YxJncUAh+ofxegOsj/mjJ2TXcoBbZkD3J97HbvwU5iuy4oARn86PO7oUlKcb
7zh/hgNL16VWrN2K+eZ0SL7gKQd07j5s0NPC/QbXpM5q4UALy+id2wYKtCNm
vcue4YDIRT0BHrwf7g4r5y1A8ySEhHOjrU+HQDHa41MBmwvtHziRVY3O51H+
wVHD/uHZd+0zWqlrdimNXsFqsZnD4cC71uvek+gFK5J/WKM1k2Sah9Byyw7I
OqAdQsCAsaq8jNVBtGjsgdJBtNHi+NqjaEmbxKcD6EihmPRw9P0gibP96Olx
X59n6NljHRq/0Pyja59mowc2Dz/5iV70r787H304j1ee8YY+N4sKZn3TNQK9
6GOdthvb0CoLfb73oM90SB77jE4SDLVlfLn9Q9o39PMtl5u60ektJov70P66
acVd6JdN882H0NriueqMa9/Wxoyhr8uVpX1DU3XnqqbQoQfeyDLurdGjOWje
j83XO9H/A7fCotk=
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13c8l90bB3ArlT0jq0VLw0qiXFLKk6iozEghoTILlRAatKMn4ylF2VGk
MlIyUj8RN5WQCNkVWd/vuX/X+et+vV/fcd/nnOt8znUvOHDM0pWPh4dHhpeH
h14V9ErwMgGce6cX/lVi4GPodO1dtLqxYeQiZQYuvl2XsJF3AhLUFTp3oqfs
nmqf5ZuAaUfVq5noz6cfuQjOmADVxshH+1UY+Lc8uVJEaALmON/mr5nHgOyO
qItzZSbAN72b9/ZCBiTcdkhpL50A7of1jkuXMuASWfq6ymoCHIK7G/5o4//P
9FUOOjUBhoNxBqmGDJzz3TrPMWUCmvsz7zeaMuBTO/kq5cME1BzZph9jxcB/
l0bEZk1MwDUjnqwN+xhYaviG837RJLz68dPm8CEG0pqeX6uwmITvPa0Z4j4M
eH78U/fl+CRcsbBqLQ9iIPqlUN6ue5NQLaHyqCOcgSFxN4MfNZMQxL+2UC6a
ga2mnV5Zvyeh85mgZOt1BojPBmCUpyBkqYcZJ56BcdJSpLBlCrLUTtzfco8B
i9PWn1/5TIF+dv14azoDCZ2jSYmJU7Dykv973jwGlmc3idx8MwWPjkrmHixk
QM49VmlweAqultia85cysCXq36YD8tOgeuTtq75yBhpiAzX1N0/DDOXBdP4a
BvZeCtY2OTYNFYolSk8+MKDYW9budWsazvd4vCxuZMBQp2vF39fT0BIW7vjz
MwP3O81UE/unwaZTNy2ojQE2mHkdIM2Bpqr//J58Z+AZ/3q+PEMObK3xj+Pr
YSB/uLt/1iEOxJ/NvFzZx4Do/44ef32dA1p7PHJvDjHgcF0+7VEJB2rMW3YJ
/cb5eiEY8fwHB0Yl/umcMcZAa2M9j5okF4Za/kSQcQbELTuWZK/jwvwLSYOR
UwysLZT66+7MBb/AkshKDgMlogtco2K4YBvO3zpOGIis8gspy+fCoMHG7iqe
Jsj0va/n8I0LiYNKcSF8TdBlvEaBRZurVoVEoFWkq6aTO7iQ4NN08CL6+pO+
0p7vXBgfV10Uhw4c1TTx+8GFF9uijmejTY6X7brYx4Ujr0K8W9DtQa0ez0a5
cKzE67EOfxNIh8klycwm0L/T88RX9MAnE/N89FRDlHMHulLDn2slRKBj7xrT
bnTgt7p9N4QJbJ8yEx5Bt8FFFSkxAnbCLu78Ak2QQTh3xKUJPP/lHLIMbXzq
+z0hZQIWWekKfmifE9lpPJoEgh6LK3PQEpuc2rPRvjlSkTwzmiBHTHKOvRaB
koC5PwXQA6n+Zwu0CezU0E4VRbs3Gjh66OL9viQOqqD3a9ZINxqg1QNeGqF3
9HeHPNxC4NfMBPcw9NDTfwt2byWQuzZoVyQ6JnzbAK8pgdIwZ90L6Jq5ObYO
/xBIXrVr9Cp6i2mAjuR2AqHej43uog1T+fuCd+H8FKUplqJXOs3fY+FAIOJh
RctftM36k2QYvfeArMgUOmJu08Nr+wjUHhnX46K/NkRPNToSSFXwO88viPc3
Hb9j70wg0NSciKMHNGv73N0IPGnONVmKzhI4FXrWm8DKz1ab96I/dTQtU/Mh
MFdlw0xbtMBLzYZK9MzGkkp7tENQj5qQH4Fy3SgDZ7TIkOW7qwEEOFZrOZ5o
r+Zlc/4LJqBYa/glFK2e0Zz5LIKAdxmvUBpaabqg5VAkAeEUkesZaLHtN4Xl
ogiYdynNyUaPDO70DDhHwMvMQuox+qlmzXKtiwTuu099KUIbPy9Oz7xCQP1s
anYtWkco4bPdVQL/pqj8rUOr2QfNFrpGwMj1rn4DehZ3zWH36wQ+3CwtbEbX
Gj1aqhaL93P2DP+Gtq1OfvhfPIGHu/Jtf6G3zQ1tNk/A8X36cOAPer2H40wu
Omzj+KExtIqI4iH7JAIe5z3cJtFdO24ulr9L4PedXm3emU3g3RyVei2VgGys
t6QE+ly35/2IXALzzyt9Wo6Wf9mdrJFHYLb1sP0KdMYt57tf0UatEy0r0e9N
rZN0nhD405hbp4GWyjS+1VVAQKfpeYwuOvHY3OjNRVifW+13bESvNL15YQTt
n54bZ4wunS9+PrGYwFgzfNmE7qgXiBwtIWDiJLJ3C3qxzkhIShmB7ycPzjdD
505U+gpUEhCVXMOzG72xfqNPLjpnj6HwHvTH9OJjDlVYfycjpPaix+wee+VX
E5ilUS1rg9YvSXJzeUfg8l2tYXv0u1h5V4n3OF6rpV8d0A5HbxwsRhv5OFTs
Q5+Zd2G/TC3uz4LQGCf0mzB/uzd1BArLSgcPoPfYDdt41xMo084uPoju1vKw
VvpI4F5iyzkX9Owup93+DQQEZSel3NAWW8wsVJsIGAqs57ijv6lUbq9DN15Y
nX0Y7TNuZHaqGdfvioudB/pmmq5p4ycCC77dSPdEfxZaaBzRQkBvSkTxKHpi
1OSJ6lcCg2M7UqjntB9WrUDf1rFcfgxt+SRPULCNwEuF2BXedL2TmBMP0Guk
mtKor5yb7N3STuDmQNMCH7qe9hvfnftGgKdPXsgX3Wfiun5pBwGhfXZB1LM0
LmRXo4ctHX5QmwjUX5ndSWDToXtP/Oh6Zu3fHf0D73/NYFkA+mtcRIV6N9bX
ycgQ6unQNN336F1LrtVR6+0ZkRftJdB2aMjjOHovyFzMRi/ebvSE2n+Z3rT5
TwIKN3ZPUOdxz7Re7iNQ3/sm8AS6rue+xep+AjFbF+RTD9VXvfyArk8zGqAW
Ke7X8B7A9dBZtCAQvfyB+D2JQQIDUm8tqU2vakvnoXM8tcKoDwVbR+waIvDD
zSmLOsrl5NgvdNSKnY3UKRZ33K4PEwjvEpikfq1X3qw1QqD16WmFILqeC3tM
G9BR717oURMR4Rd+vwic2lZsRa08vkpd5jfmrX24J/X6DsvEfLTKEtFQart3
x0X3/MH8bXS4Rh1YEB8yhg6N8blDHXendDh2lMDB42YZ1PkXvu/XHSNg+6Iv
j7rBT/BjE9oxdMdT6t/7lm868Rc9ElRILWFqkS83TsBSy6OAepWWr9oztN7R
+bnU25Xi4mwmCEy/S3xI7SH4YuYk+rZfewL1hZHWwNuTBPgu9cZQp33h7Vs3
hXls9CyYuvKNmv0XtEiBhSt1V84/74On8ffSWdup+W4f2aDIwf1ytk6Dev7Z
azlF6JMriyWp4UjBPAcufq53bJjOr6P156scdMj/fr6lPrWRy5tECGRJr0im
jldf4LeBxbzR1g2gfiZr0tWKlt89awv12M+YShVeFv5bN6ON1oNMY+7al2gN
C41Uaq3SxjQnPhZa+FUPUx+9rhR9l58F69+uPbTeLEfKwy0EWCivz0mg1rXw
DOagH7pqbKfmzn5x2EaQhZjjbcm0nr8dcnYWnMmCs63wVuo3FbNs89EOxT69
/uiYMGtTidksuNX2z6P2xr1XijbrZAvo/tm94cFaLyEWpjdZmFIrTo4urhZm
wTE/3pnutwzv6zNCxXA838fd6P69XLuOu1KcBcOezja6331XdIy2oAdrha2o
1/Wu7lorycK4lIQGzYdqp/+9HpZmYQY7XEzzJKvE/0WSDAuy2WVzqK8qKj02
k2XBkqn1ovlj0+yR/HAOCxynFFGaTz0Ws0Kd5rLwbmjdQppnNVmPTogq4POz
0/tc0TlC1seK0LILuLE0/45XpjrKKbEg5lIyRfNS0HDThg8qLPAHGtyieaq6
MmTKUJWFNHs7JZrPs6LVfg+gH9iqKVmjB3rf/4xXY6EhTkue5vmTFMXPfxez
YBIvM4Pmv7HS88KcZSyc2cPJ24HeLzzqr7Iax694zoaeH/XBm9vL0KFNDzRN
6Pf7bv5zUIOFkuiomZvRi96uUUnTZKE5Oiqdnk/dUSeqNHVYPL8vVa5HH+Gb
nmuyjoXkii8uWug2H7OIHrTEFVEhTZrnHQlDF/Rxfnr5slajNcrWl9caYH38
WdNNz8vR0yFeNoY4/r5X2kvQwZO8Lz03sZB1PlZbEd3vbrlMbDMLVkUCqXPp
+fPp3o1c9B/pddLyaMPCTe5jJiyc+vrrhwyaNyBS8owpC992pLmIoc+PzHK5
bs7CvZ/bq3jQsT3is59bs/BRLW5hJ573D9o4G21sWNh8rk23g/YnzM/gcfTB
NZKm7bR/Ki8fWGPHwlZpXecWtMLdE3WPHVgwkAs/SvuRuzbtt7KcWViwzWTs
NTrjbc7iu54sVCafz7+DLipLcAIvFlaPu7olod8Xnv+3Dd0ToCWbgB5MPSCk
fBTn4+Ltw3FojfA5Q7e9WRjblTIYgy7QDym4EcCCq13tgSB0Wab55nNnWFC2
ieDbiY6bU8qvE8qCYDNXzpz2a2Gryr+hFfU7lm1Dy1uLG+uHs6Dn1228Ge3D
Vw+DEVjvyiP/6KEX2u42sLqIz/tcPWseOkLQXmteLAu6cnde92P/aersPr8w
gwV9J3PjIHRma5ilTSYLj5pFCwLQYnYJEZPowxnPVX3RjGVtr0E2C1fYhikP
9IHNOnllj1hwqZULd0CfXMJjXJPPQoo6yzGk/frgrYOtpSzua7dUXrR0cNUD
/gYWoqyc3p4WoP2ai9NjtIfobsUgtIsdr7xzIwt5wk8P+6Of6htcKGWwPpNf
T3ugbaZzPIM+sVBUwz9mjU46Facx3MrC3jLL9ZroJWdcX3zpZSE17fw8+n5i
EMFfm0dYGJEN2aSL3hZWJliIjn32R57aJuQ0FKMnY9yH1qCPB45jO8VCX82O
29S5Xv03WtCXEmSG6fvQ4j0NtjNYrP+rJ+K10RKL7/+wQV+qvjeigZ63aL+K
I3rGfVJBvWq+svVBtNEj2wRqM4Vb1UfQYvtEt1BHiUVnhqOHRD0TVqOn//r6
ZKEn37Amq9BCo6sz8tDtRRaK1PK/Br4/Rcd2JY6sROv2u+1+hbZ5p5tA7d1u
t7YJfWho/8gK9Jmvct4t6Id+6RXUlz83pn1DFy3/FU+d2WCh0I/WXxViQv2i
TthqBJ0bXK5AXf2/6ugx9NjEzBF1dHNN5Jsp9Ox0swrq7ipjLovuvXg5nvr/
E/yUlw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.5, 0.34},
  PlotRange->{{1.5, 2}, {0.32989266746749, 0.4207125817618698}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.561131403328125*^9, 3.56172836925*^9, 
  3.561789920828125*^9, 3.561982668296875*^9, 3.562046438171875*^9, 
  3.56206856896875*^9, 3.5623517196875*^9, 3.562354773046875*^9, 
  3.562465963331131*^9, 3.562961777390625*^9, 3.563086767515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RMSSpot3", "[", "\[Lambda]_", "]"}], "=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "\[Lambda]", ",", "370", ",", "75", ",", "400", ",", "61", ",", "450", ",",
     "45", ",", "500", ",", "30", ",", "\n", "550", ",", "24", ",", "600", 
    ",", "22", ",", "650", ",", "21", ",", "700", ",", "22", ",", "750", ",", 
    "24", ",", "800", ",", "26", ",", "850", ",", "28", ",", "900", ",", "30",
     ",", "950", ",", "31", ",", "1000", ",", "33"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.555048838140625*^9, 3.555048860265625*^9}, {
   3.5550488936875*^9, 3.555048934078125*^9}, {3.55541091053125*^9, 
   3.555410911015625*^9}, 3.560755790125*^9}],

Cell[BoxData[
 RowBox[{"Switch", "[", 
  RowBox[{
  "\[Lambda]", ",", "\[IndentingNewLine]", "370", ",", "75", ",", 
   "\[IndentingNewLine]", "400", ",", "61", ",", "\[IndentingNewLine]", "450",
    ",", "45", ",", "\[IndentingNewLine]", "500", ",", "30", ",", 
   "\[IndentingNewLine]", "550", ",", "24", ",", "\[IndentingNewLine]", "600",
    ",", "22", ",", "\[IndentingNewLine]", "650", ",", "21", ",", 
   "\[IndentingNewLine]", "700", ",", "22", ",", "\[IndentingNewLine]", "750",
    ",", "24", ",", "\[IndentingNewLine]", "800", ",", "26", ",", 
   "\[IndentingNewLine]", "850", ",", "28", ",", "\[IndentingNewLine]", "900",
    ",", "30", ",", "\[IndentingNewLine]", "950", ",", "31", ",", 
   "\[IndentingNewLine]", "1000", ",", "33"}], "]"}]], "Output",
 CellChangeTimes->{3.560523038421875*^9, 3.560527406578125*^9, 
  3.560681309078125*^9, 3.560690055390625*^9, 3.560754331109375*^9, 
  3.56075735253125*^9, 3.560757980328125*^9, 3.56076267271875*^9, 
  3.56076498346875*^9, 3.56078823746875*^9, 3.561129822265625*^9, 
  3.561728369515625*^9, 3.561789920984375*^9, 3.56198266853125*^9, 
  3.56204643840625*^9, 3.562069280359375*^9, 3.56235171990625*^9, 
  3.562354773109375*^9, 3.562465963534256*^9, 3.562961777546875*^9, 
  3.563086767734375*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ropt3", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Rrmsfix", "^", "2"}], "+", 
      RowBox[{
       RowBox[{"RMSSpot3", "[", "\[Lambda]", "]"}], "^", "2"}]}], ")"}], 
    "]"}], "/", "56.73"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Rrms", " ", "in", " ", "arcsec"}], ",", " ", 
    RowBox[{
     RowBox[{"includes", " ", "rms"}], "=", 
     RowBox[{
     "Rrmsfixum", " ", "for", " ", "surface", " ", "and", " ", "alignment", 
      " ", "errors"}]}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.548521265717515*^9, 3.54852130995112*^9}, {
   3.55504705440625*^9, 3.55504709521875*^9}, {3.55504736996875*^9, 
   3.55504743*^9}, {3.5550490463125*^9, 3.55504917384375*^9}, {
   3.555410892109375*^9, 3.555410919390625*^9}, {3.55992117125*^9, 
   3.559921196484375*^9}, {3.559921590671875*^9, 3.559921598140625*^9}, {
   3.559968818375*^9, 3.559968825109375*^9}, 3.55997006215625*^9, {
   3.560680944859375*^9, 3.560680980734375*^9}, {3.560755650078125*^9, 
   3.56075571440625*^9}, {3.5607557954375*^9, 3.5607558004375*^9}, {
   3.560757492484375*^9, 3.560757495328125*^9}, {3.56235151*^9, 
   3.562351510703125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ropt3", "[", "650", "]"}]], "Input",
 CellChangeTimes->{{3.5606815105*^9, 3.56068151146875*^9}, 
   3.560755811953125*^9}],

Cell[BoxData["0.44130398826071005`"], "Output",
 CellChangeTimes->{3.560681452125*^9, 3.560681513375*^9, 3.560690055421875*^9,
   3.560754331140625*^9, 3.56075735265625*^9, 3.560757980375*^9, 
  3.560762672796875*^9, 3.56076498353125*^9, 3.56078823753125*^9, 
  3.561129822328125*^9, 3.561728369546875*^9, 3.5617899210625*^9, 
  3.5619826685625*^9, 3.5620464384375*^9, 3.562069280421875*^9, 
  3.562351719953125*^9, 3.562354773140625*^9, 3.562465963534256*^9, 
  3.562961777578125*^9, 3.563086767765625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SN3", "[", 
   RowBox[{"\[Lambda]_", ",", "dfib_", ",", "Rg_", ",", "AM_"}], "]"}], ":=", 
  
  RowBox[{
   RowBox[{"NIntegrate", "[", " ", 
    RowBox[{
     RowBox[{"2", "  ", "Pi", " ", "r", " ", 
      RowBox[{"MoffM2", "[", 
       RowBox[{"r", ",", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"MMEG2", "[", 
          RowBox[{
           RowBox[{"Rsee", "[", 
            RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
           RowBox[{"Ropt3", "[", "\[Lambda]", "]"}]}], "]"}], "]"}], ",", 
        RowBox[{"BetaMEG0", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
          RowBox[{"Ropt3", "[", "\[Lambda]", "]"}]}], "]"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", 
       RowBox[{"dfib", "/", "2"}]}], "}"}]}], "]"}], "/", "dfib", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"S", "/", "N"}], " ", "ratio"}], ",", " ", 
     RowBox[{
      RowBox[{"assumes", " ", "sky"}], "-", "limited"}]}], " ", 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.555050136703125*^9, 3.5550502555*^9}, {
   3.55505030340625*^9, 3.555050315109375*^9}, {3.555050443125*^9, 
   3.55505048015625*^9}, {3.555051500265625*^9, 3.555051529234375*^9}, {
   3.555051589640625*^9, 3.55505160484375*^9}, {3.559921476890625*^9, 
   3.55992150384375*^9}, {3.560156807328125*^9, 3.5601568129375*^9}, {
   3.56015684421875*^9, 3.5601568544375*^9}, {3.56068187153125*^9, 
   3.560681947765625*^9}, 3.560690346703125*^9, {3.56075583040625*^9, 
   3.56075585928125*^9}, {3.56079271296875*^9, 3.560792752296875*^9}, {
   3.560792815625*^9, 3.560792819046875*^9}, {3.56079286734375*^9, 
   3.560792868140625*^9}, {3.561129323078125*^9, 3.561129323390625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P38501", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SN3", "[", 
       RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.2"}], "]"}], ",", 
      RowBox[{"SN3", "[", 
       RowBox[{"850", ",", "dfib", ",", "Rgalmax", ",", "1.2"}], "]"}]}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"dfib", ",", "1.0", ",", "2.0"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.555050326*^9, 3.555050355015625*^9}, {
   3.55505038553125*^9, 3.555050392265625*^9}, {3.5550504924375*^9, 
   3.55505049440625*^9}, {3.555050565203125*^9, 3.555050566828125*^9}, {
   3.555051333515625*^9, 3.555051350859375*^9}, 3.5550514116875*^9, {
   3.555051536796875*^9, 3.555051556765625*^9}, 3.5550516093125*^9, {
   3.559965064078125*^9, 3.55996506703125*^9}, {3.56015685946875*^9, 
   3.56015686146875*^9}, 3.56015706321875*^9, {3.560681952546875*^9, 
   3.560682016125*^9}, {3.560755867515625*^9, 3.5607558886875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Xk4VdsbB3CEkJBOE3WVlKSQUqF6j5ShlCgZIuWYSYrccjPPRYnINUVJ
0q9CpUFIpky3Ds6RUpQSMs/T2ev37j/Oc57Ps/Zez7vW+117rbE7a+ogwMfH
N4A/+n+bp68QH98QHFQKf3hNng1Z/JNpOvxDoDjcXOO9lg2MeK/tIQJDwKqu
ZlspsGH0ubuTsNAQ7G5JSl+/ng0FsydrxMWG4MLKTuViJTaoRejGrGDg+439
jC41Niiniy/ZumEIDIYT5BSBDfL16QqOR4bAR5e70PEEG+rE/MKu3x+CK9Yh
0Z632DAt+VNrZGoIsuMZ5fP+Y8PiX9f2vDEYhpGAqs9yAo3QnToaYnh7GFKf
qvMt02yEvbLfV0kNDcMaSXWTPtdGML8cOf2v/gj4zw20mt1uBMtHXmuvpo2A
7dZXPBV2I3Rk/c583j8CnNCfPUA1gnzAEru7+0YhOvdO2fXNTdAjV+9TmzAK
JhDkqGfRBKmxVa0Wv0Zh5Z+mpNrAJhD76eufqz0GIY88n+x+2AQ83ou/NaLH
IHRxapUnuwkezjwuCOkcg82+3vqm002gV92jrak5Dlbb15QN/dUMDlaPVmyI
Gge7jITqXGYzMD9u1PzcPg7jGf4R1axmuC2+5VGl2gRccVJrVQ1phtfKw3be
kRNw/NKdkZK7zVAmM+545dsEhK10f7LrXTMc+hhU2qoyCck7+tac/toMN53f
W/aFTULwex1lp+lmOFV9y2BnyySYmPa91JXmwPKJ3LA/66cgJu1soIcSB67O
vyho5zcFj7jjB7R1OBDS3tCy6L8p+Gm3jaFxnAM7kr/2ha6bhvrNWufS3DjQ
orDliO0/0/BgsTvLOIADcxcWinjVTYOERd2d0FgOtD24y39AfgZKc0yTBjI5
oJP1ztjKawZ0TI2kRPM5EOexro/9bgYSfHddqS7hQLrs3lrxFbMwbjWgHl7P
AdXrv+cCXWahb125zv5PHPjnl965l29noXuHVktrJweMBFS1lKTnIFBNXzC5
nwNig1Ym/HZzsNyWu1J1AusvYeamvpwDgadr2G4UB4KOPTE/J8oDyuOAs5wQ
F+wn3F58EOOBYKUcSwutl7RhmYo4D45xzxmZocXbMrm9EjzI8ovrvYJOYt00
s2fwoGztyLFxdN75S0fN5XjwXCCms0qYC99idY13a/Cg4b7uqLUIF7QaWvRE
T/OgPNRcw2wBF6z9G3RP2/FgpeKB827oANVy5isWDy5IF6cHoStuPNZyceQB
p1yp6hH68PEwlRo3HrReNzAWEucCq119aZQPD3bU/jmYj44ejvklEs2D+9qG
03MLudC+ZF+oyAt8f7PbRZYUF1b2XnU0fMmDGMNQF2+0RUmTwZVXPOgLSDAK
Qzc6shaKv+HB15X3urPRFS+CEyXLeBCrmXKxB51rWZaztI4HflJjU26LuOCd
tqdBoZ0HJwY7Qhylcf3nwp84dPBgjYRV4QV0//7/bmR/5wE5MPI5FO04YHN8
w08eJJDQmTtoS/BrV+7hgfFFs/hv6D3fi4bVR/H5mqebji7mgug6zaU68ymw
FRkUVmdw4WNHhFCaCAWHTpVnMtFJqdyxKVEKXK57bzJGb2B4N+WJUzCZ67XI
Ha0370nsamkKymykZO6hg78rLOBbRYHgTzlFxhIuzKVJ8ZWqUxDTdVG7C11h
aTsos42CY6v/NI+gry55/M1Hg4KoAbeTBC0Tc7BYZScFyQG3dZYv5cLOy+G+
6bspcJuaNjBEX7CaG/MzoOCb7SfrHPTA0u6eXScpqEmSzbJahvWPR5YE2eK4
iO01e3R+s1J81SkKJCy7XT3Q3nFuu46wKNDJYc8EoWcXDl5jOVNg4ijvk4MW
EZrYeuU8BdsCW76MoNeOzvNvCaegssHZ3W85FwQbs0xXRlKw768vmWHorrz9
iqejKJAsLaqJQed6RHzsvUrBKFU/lIZW6xVbS8VSkMo1TS1eTu//ovcKKRRk
sIVdZ9AWH+Skzz+hoOp3V7fLCi74Fk+H5OXhel91HvJEpzxsGh/Ip2Dz77l7
PuhvERGtbs8oeLY8SjUEzWIOZji8okBJbmNOCtojv0TVspyC7gX/qtWiY28n
Zd6qoKDfqLf6Azo/5vxibiUFrwddTTnoMZf1k6bvKbgjS5gd6Evy10qMGnD+
ozdDx9Gh8TaHmC0U2Hldzl4lw4XsoB2l/p8oWOpmek4eXX120ZbiVgoSql1V
FdFiRpUMrTYKLp91ClNDXxfc3Lb1OwUf3+Qn7UUnX5hzVfxDgZDZTRt7dBGL
2+bQh/shJ2fjjG4zyTuc1Y/5MybG7mg5FXv1NUMUBKZVSHqjs7rqpmXGsX/q
oZPB6CfmKZEShAJhme/O6WjrzZfnO/MRcLEM6cxEi8yzCS/jJ2Cz8ajxPfSp
x3+FegsSCIkNmnmIlha6E/BZlMD4J93bL9Eln4OprQsInJHyu1uEds1j+cWI
E+BNDiaVoMtPrPuHKUlga1ekeQXauyDHJ5tB4Eh2/toP6NWRUeNkCYFXlT/y
2eh6G1dvy2UEogostzSj14luOi8uQyBOQE6wFc21fXLmvByB4+1bpr+jgzVi
++pWE+iqL1r0E62y4JzbOnkCvXdvyXahIwrVXT4pEJiRPTivF71zYaH9no0E
auLq5IfRP38kdt5SJpC9UbJqBB378m+74U0E6qryrMbQPSzNU1mqBNqWMywm
0YmaMu08NQK7OJ/eTqH3Ss7amKvjfHf4ZWfofr1+c0JMg4CUf9jdObRebNpn
1nYCS+M62Tz0iIO/ZfEOAtzyh8MUOl3b9tNSTQLuie0CfLJcOLiIae6pRaAv
OlCIHz3VtZpbo03AfGPsNO2sN/xma3cTeDss2S6AnnMqN+UCgUtijv6C6Jzd
WWxVHQJFp2GnEPrY4rAjUXux/oFrnbT5ehw+/NAlULrteKAw+lGJ3uFd+wmY
FCZKzEdb3VRsSNDDPEyYXKMt7CpiNKhPoOfvKEK7AHpqDQwJZBXvsRNBn1xS
a3jnAIFTB7wKaYv9yX0/exDrz9gwR/vF26v6ZocILNh3aqso2j7RverxYay3
UNaatpT7of0iR3B+X2sf2m90VCpOmxCQZigE03ZeJqlbZEogXdA7gDajf7CM
cYyA2odDHrTL3n1kepgRcJ0oOEw7smjevbzjBHzrNynQPvxsu+ioOYGKAel+
uh7GI5czGpYEHG45PqD9+V4q+28rAnZ8Spa0M9I/aLw+QaCBdWKOXq/TLYHk
OWsCObNUHG2VWA1qz0kCw/xLVtEei3S2C7IlkJuXnkzv5+uglKryUwRqddIW
0A70/W+jsB2B/YOLPOn91/Piv27AIiA8yqum+7XQfdvoFXvMZ7jdYtrN9k7m
DQ4EhH4xTeehk22SiySdCIjoJ4fS/V5vzBd604WAM/WunM5Ln/7Wbq4rAafq
mx8J5ukp09FohTuBwn+6PtL5YqrXM9I9CJjGSPyPzqOwMrnYcZaA4snf4bP0
eVur/lX+HIHD/PvN6PxaLkm6d9+LgOO9+Ho676sl6kR7vQk8XxFxYQLdJUyd
2eSD+dYXlB5Hn59ibc+/SMDzacY6+vxEf1Gtfu2H/ZALffEHbdpsp8zzx/OR
83uuB72iIeE6BGL+XnzT6Ka/jyWz5hXBBIyNooPp81uaWd3dEIH9TZof0YYO
T54xkooiEJGo5PIZbRS/Od/0Cub7V/eeT+hPofGXWqIJkBP7Kpvo8+VkK/b9
BoGUP7G7a9EvT8V5rI0nkPes9E01OsCystHhJoE7SQmqlWjxg8opvYkEChK0
h0rp743KpPJYCp6vu3Ffn6Etxq4dmp9NYOGkv0sq+kHz+xL7+wTKtre0JaFn
ngmovcshcHe6QicBnXbBR9rvIeZrr1NHDPrHhE3LSB5+T86OePqj3ac3nf5W
RCAwM6DDGl3c6tioXUxgeUnvGQu0xOsM3X9LCPSDYP9RdL4vY/2xMgI/cw3e
HkBPzM721lQRYGbsLdqBDqJqvZ+zcZzfXFAS3fhNsEu6iUDld7tHomiF0j3m
ns0EGPzbDQTRVQEFmsotBC5s3Xl0Gu8rcf5kKqONgNWXlpIf6MR5LpHRvwm0
FLf3F6BzReansngElJh9zw3QVQJBCz3Qr06XB9DunJvxv4huPHTLkPbK4YHT
MeiKMI2v+uhrrVzFF+hm74OCtM/nZj8VowjMM/1qsh+tbaRXl4+Olv23Vwdt
ofd21xv0rpuiz2h7M7UeV6E/tPj40X68TeXGF/TLUn0p2qtXLTUXIpgH6XIN
Jlpw4NcPC7TMe7nAPfR4t+0xFtplyNqQ9u4frZVn0LWdidK0fbgNOcHoamX+
e7vR3SXPPf6HFtN5UrOLnu+VakchWuVdYxztNU8fmJShfSVGT9C2up+2jYuO
Edk4oE3Pl7ksuwNtXch8QTs+5cayP2hb1WOBtPMSFuCFh/eZl70h7frrYTME
TQWfk6b9f4ggcFo=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzHs01HkYBnAj90hXs1KbZpNkj7Kx5ZJHrRVbKp1ak87WmrbrMnIpVi4x
KcSMktjcjrJk2qisdDsV7UQxzMxvkG6UNCqrYQxmDLPf+eM5z/mc9z3PYlb4
tn36enp6m0l07XIkzlBPT47DbzNV7BYhymhjRetocvi9uLfdulWIuTlR33P0
5Xh5aUPW4zYhFLWhB4wM5WhnRF2gU0LcnNj91NxMjoJwE9MHXUKsPP1DlvVc
ORSqUraBTAjHYvN5q5bJMXElcHUMrRWMluIl+7fKYbvnedGIayuazRJSeRVy
OK6Jbu77qxUqy/fuw+NyBBzf62Nj3oY5fVyv+35DCKM/92Sw29BfqOD4lwyB
cVf8xaijDett3i6cKR+Cl4ITwpwvQlB8murPDcOwOnJrjLVJhJ3Xor45UzSM
aqNFaxAvQk+ZrLT2v2E8Xdtk1VAhAiNpHuuyjwK0Shn/n3YRPi5qOfYsVwHL
WZcOR2hFKMx+0sXsU2CwMfyVr70YZu/jEvkeIxCwKi75B4oxOVkX45o5Ar/2
cIddMWJcVVfd5PSO4Oab86G/lYjh2/jRw81NiQRhLeuoQIx9wdesl6UrYdno
SX8lE8NbtNztRbcS/KI7B9XTJSgxd74mWDmKUu2p3JxvJbjrOMSKThuFqikx
6cZmCernK/dnvBnFxhGlj5otQYAo+WGX0xgc8oLzDDMlOH+waedA6hgmapRl
O/kS/NqY57emcwwuA/8+zBVI8NUoP/Xz0nGczcqv2tAtwRnjWANWwjgKX6+K
MFNLwOkWds5qHYe1RMZUz6Kw+uLrgZN2Kky/L5cIl1PoXOK8dc9xFXIcx2dY
rqegOWphEtWsQiXnD9vHP1N4VXmZ9hNDjQ+8ZylLQymsK2vYEhylhkVWvMPi
JArn2HYD4gY1DtcFsCXZFIpt1j8zt56AzE9fqn+ZwgqeTHPi0ARs/LLtzGso
HO/zjbj9aAJxVfviwx5T2KS/wt1htgYtp7KdmsUUzL4EB9JYGpRzaRaG3RQ4
D7z5hbc1cM1oTPp9gELy9uqgCNNJ5C/fsstinIK7sNPXNGQS6BXF3p4mRfc8
n5MmdZNwpkfzvGZIYWrnZrXOeApd+we2edGlGLTq/+i5ewrO32Ua2NpKwWxb
NDuyegpTp01lBfZSVAcVpM3QTsF/wTLxKicp6htE3uwdWtRedZqW4UL+R7gB
xuVaXLU+4FrjJgXfxLhw76QWwYey8hO8pHiin2zBJr5ek/51InGvRp0YS8zT
ppTpvGBoMCSLeLgg9HoSMberw76OmCuzaUomjuSX15hNaVHX/Gk0ldhjk2/z
DeJP7f7buMRM30ee94mZOz506hzt7V71hPh8R9IvPOIqF6ezL4lD31QezCa2
XWgVZKjV4sO0F4nniA0G+94xiZ9W8PkXdPf+Pdv3Egt86CvziNe+6xKEEVf2
nqjV+ViH8EoKsYv9xkf5xP0Patl/E58T3Gu/qNu7s6LnFvGcyJm7CogX11QG
1hOftmX16BxcUeTSQRzG0Xwq1O2V0st7iF+u/vFIEXFOwVn6Z+LNgxlKna/n
Tk9XEteXC+OKiVt4qWotsUeIhV4J8f9V+4y8
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1., 0.24},
  PlotRange->{{1., 2.}, {0.2328013151652713, 0.34540021618914907`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5554127664375*^9, 3.55895006096875*^9, 3.559050266953125*^9, 
   3.559141357703125*^9, 3.55929529040625*^9, 3.559310527640625*^9, 
   3.559921529265625*^9, 3.559965069484375*^9, 3.559968329109375*^9, 
   3.56015588590625*^9, 3.5601568655625*^9, 3.560157067859375*^9, 
   3.56024067515625*^9, 3.560522160125*^9, 3.560523110078125*^9, 
   3.560527422421875*^9, 3.5606819626875*^9, {3.560682009578125*^9, 
   3.56068202078125*^9}, 3.560690057578125*^9, 3.56075433315625*^9, 
   3.5607573549375*^9, 3.56075750575*^9, 3.560757984546875*^9, 
   3.560762678859375*^9, 3.560764989671875*^9, 3.560788243578125*^9, 
   3.56079279759375*^9, 3.560792897078125*^9, 3.56112983128125*^9, 
   3.561132496515625*^9, 3.56172838275*^9, 3.561789933296875*^9, 
   3.56198268096875*^9, 3.562046451421875*^9, 3.5620692925625*^9, 
   3.56235174515625*^9, 3.562354787*^9, 3.562465977049881*^9, 
   3.562961791296875*^9, 3.563086782109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RMSSpot7", "[", "\[Lambda]_", "]"}], "=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "25.8", ",", 
    "\[IndentingNewLine]", "370", ",", "24.7", ",", "\[IndentingNewLine]", 
    "400", ",", "23.0", ",", "\[IndentingNewLine]", "450", ",", "19.9", ",", 
    "\[IndentingNewLine]", "500", ",", "15.7", ",", "\[IndentingNewLine]", 
    "550", ",", "13.3", ",", "\[IndentingNewLine]", "600", ",", "13.4", ",", 
    "\[IndentingNewLine]", "650", ",", "13.4", ",", "\[IndentingNewLine]", 
    "700", ",", "13.7", ",", "\[IndentingNewLine]", "750", ",", "14.1", ",", 
    "\[IndentingNewLine]", "800", ",", "14.4", ",", "\[IndentingNewLine]", 
    "850", ",", "15.3", ",", "\[IndentingNewLine]", "900", ",", "15.9", ",", 
    "\[IndentingNewLine]", "950", ",", "16.6", ",", "\[IndentingNewLine]", 
    "1000", ",", "17.3", ",", "\[IndentingNewLine]", "1050", ",", "18.1"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.55505082025*^9, 3.5550509264375*^9}, {
  3.558953971109375*^9, 3.55895397190625*^9}, {3.55895460153125*^9, 
  3.55895464134375*^9}}],

Cell[BoxData[
 RowBox[{"Switch", "[", 
  RowBox[{
  "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "25.8`", ",", 
   "\[IndentingNewLine]", "370", ",", "24.7`", ",", "\[IndentingNewLine]", 
   "400", ",", "23.`", ",", "\[IndentingNewLine]", "450", ",", "19.9`", ",", 
   "\[IndentingNewLine]", "500", ",", "15.7`", ",", "\[IndentingNewLine]", 
   "550", ",", "13.3`", ",", "\[IndentingNewLine]", "600", ",", "13.4`", ",", 
   "\[IndentingNewLine]", "650", ",", "13.4`", ",", "\[IndentingNewLine]", 
   "700", ",", "13.7`", ",", "\[IndentingNewLine]", "750", ",", "14.1`", ",", 
   "\[IndentingNewLine]", "800", ",", "14.4`", ",", "\[IndentingNewLine]", 
   "850", ",", "15.3`", ",", "\[IndentingNewLine]", "900", ",", "15.9`", ",", 
   "\[IndentingNewLine]", "950", ",", "16.6`", ",", "\[IndentingNewLine]", 
   "1000", ",", "17.3`", ",", "\[IndentingNewLine]", "1050", ",", "18.1`"}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.558954611796875*^9, {3.558954643078125*^9, 3.5589546494375*^9}, 
   3.559050306421875*^9, 3.559141431078125*^9, 3.5593107636875*^9, 
   3.559923176234375*^9, 3.559968344484375*^9, 3.560155895828125*^9, 
   3.560682389828125*^9, 3.560690057640625*^9, 3.560754333203125*^9, 
   3.560757355015625*^9, 3.56075798465625*^9, 3.5607626789375*^9, 
   3.560764989796875*^9, 3.560788243703125*^9, 3.561132496609375*^9, 
   3.561728382828125*^9, 3.56178993334375*^9, 3.56198268103125*^9, 
   3.56204645146875*^9, 3.562069292625*^9, 3.562351745203125*^9, 
   3.562354787046875*^9, 3.562465977096756*^9, 3.562961791359375*^9, 
   3.56308678215625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ropt7", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Rrmsfix", "^", "2"}], "+", 
      RowBox[{
       RowBox[{"RMSSpot7", "[", "\[Lambda]", "]"}], "^", "2"}]}], ")"}], 
    "]"}], "/", "56.73"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Rrms", " ", "in", " ", "arcsec"}], ",", " ", 
    RowBox[{
     RowBox[{"includes", " ", "rms"}], "=", 
     RowBox[{
     "Rrmsfixum", " ", "for", " ", "surface", " ", "and", " ", "alignment", 
      " ", "errors"}]}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.548521265717515*^9, 3.54852130995112*^9}, {
   3.55504705440625*^9, 3.55504709521875*^9}, {3.55504736996875*^9, 
   3.55504743*^9}, {3.5550490463125*^9, 3.55504917384375*^9}, {
   3.555410892109375*^9, 3.555410919390625*^9}, {3.55992117125*^9, 
   3.559921196484375*^9}, {3.559921590671875*^9, 3.559921598140625*^9}, {
   3.559968818375*^9, 3.559968825109375*^9}, 3.55997006215625*^9, {
   3.560680944859375*^9, 3.560680980734375*^9}, {3.560755650078125*^9, 
   3.560755736703125*^9}, {3.56075745640625*^9, 3.56075746196875*^9}, {
   3.5623515116875*^9, 3.562351512671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SN7", "[", 
   RowBox[{"\[Lambda]_", ",", "dfib_", ",", "Rg_", ",", "AM_"}], "]"}], ":=", 
  
  RowBox[{
   RowBox[{"NIntegrate", "[", " ", 
    RowBox[{
     RowBox[{"2", "  ", "Pi", " ", "r", " ", 
      RowBox[{"MoffM2", "[", 
       RowBox[{"r", ",", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"MMEG2", "[", 
          RowBox[{
           RowBox[{"Rsee", "[", 
            RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
           RowBox[{"Ropt7", "[", "\[Lambda]", "]"}]}], "]"}], "]"}], ",", 
        RowBox[{"BetaMEG0", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
          RowBox[{"Ropt7", "[", "\[Lambda]", "]"}]}], "]"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", 
       RowBox[{"dfib", "/", "2"}]}], "}"}]}], "]"}], "/", "dfib", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"S", "/", "N"}], " ", "ratio"}], ",", " ", 
     RowBox[{
      RowBox[{"assumes", " ", "sky"}], "-", "limited"}]}], " ", 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.555050136703125*^9, 3.5550502555*^9}, {
   3.55505030340625*^9, 3.555050315109375*^9}, {3.555050443125*^9, 
   3.55505048015625*^9}, {3.555051500265625*^9, 3.555051529234375*^9}, {
   3.555051589640625*^9, 3.55505160484375*^9}, {3.559921476890625*^9, 
   3.55992150384375*^9}, {3.560156807328125*^9, 3.5601568129375*^9}, {
   3.56015684421875*^9, 3.5601568544375*^9}, {3.56068187153125*^9, 
   3.560681947765625*^9}, 3.560690346703125*^9, {3.56075583040625*^9, 
   3.56075585928125*^9}, {3.56079271296875*^9, 3.560792752296875*^9}, {
   3.560792815625*^9, 3.560792819046875*^9}, {3.56079286734375*^9, 
   3.560792868140625*^9}, {3.56079293553125*^9, 3.56079294846875*^9}, {
   3.5611293358125*^9, 3.561129336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P7850g", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SN7", "[", 
       RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.2"}], "]"}], ",", 
      RowBox[{"SN7", "[", 
       RowBox[{"850", ",", "dfib", ",", "Rgalmax", ",", "1.2"}], "]"}]}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"dfib", ",", "1.0", ",", "2.0"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.555050326*^9, 3.555050355015625*^9}, {
   3.55505038553125*^9, 3.555050392265625*^9}, {3.5550504924375*^9, 
   3.55505049440625*^9}, {3.555050565203125*^9, 3.555050566828125*^9}, {
   3.555051333515625*^9, 3.555051350859375*^9}, 3.5550514116875*^9, {
   3.555051536796875*^9, 3.555051556765625*^9}, 3.5550516093125*^9, {
   3.559965064078125*^9, 3.55996506703125*^9}, {3.56015685946875*^9, 
   3.56015686146875*^9}, 3.56015706321875*^9, {3.560681952546875*^9, 
   3.560682016125*^9}, {3.560682292703125*^9, 3.560682310234375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VF8UAHD8LCVSQlJIyE4iZcixFCpEaCERKiFKpfySyE6lbK0qESUk
LbYSWpRsPzUzb1T2iigjZOa9we/MX/P5fu7Mffeee868c1V8Q7ftExIQEJAS
FBDgfxof/ldEQIANKufsghL20CFfcCrHSpAN2lMupse96SCTcdQkVogNy5Pl
v/n50GH8afABURE2vJz5Qrf0pUM5tee9hDgbjrjtWMbdR4dViTbnl8iw4TLt
yXq/Q3TQuSkha6TJhvz7NKZiJB1WNN9U2+/MBn99+4u6V+nwQfx0fFohG1o6
Kj7tYtCBKzVA+8NhQ6fAxhc0SQYs+nbB4rn9GDgt3Xp6zJIBgzfGYzfdGoMx
idKOynAGWC/tVVzAHoNn8/rt6gsYsCMyiXvV7g/0brI8e4pgwK6So6qpOX/A
UjnpIFeUCT35P3Kf/voDrhK5pptWMWHFGVnfvA3jUPhWOLzLgwlDys3hTVnj
EPckVDE9mgk3Lr5l7fw2DmlRZ/fcyWOC+MC/UUVmE3DKXqglq5EJ09MVJ9ac
mwB1tX7x1T+Y8IAsLY/tnwDVry8ifcUIsG0cMjM1nYQ0WjtjWI2AfR4lSzST
J2FSYaPxPQsCLNu1TTu7JyHwpfzD3J0E3JIwLHmz6i+ctxf5LRdKQLXOmO+x
pL8g389wiYsnoF5hcn9K119Qihy1v3uVAMf2mJcs/SloyYw99aaIgMyAd7tG
4qeg+WldUUYNAT6Nl+3XMafgba6hVsF7AuT/FsUPr+SA9fbe4L90AlLFTgr7
nuZAz1Mrq8e9BMR2tzAXtnLgv+S29TrDBIQorcgPbePAayE1Axf0Tq/wwy3t
HJhNXiN6Aq3/WWlu8kccV7i+rwHdyQilCbA4IF/0cmjHCAGrWhfm/O7nQFnR
0NyoXwR8fe7u+4HLgZNt1148GyVg7bWvI3HqXLihZ3mpc5wA38HA7V9WcsFk
oedxLvqcCeelkSYXti6lW8pPENDbIZ3Rp80Fyz1j593RqfPsTS1XccH7haxg
G7o7sjyeoqGb9ju+mCQg0TtRKcyZCyK97IuJUwSUl8gkvXfB58mp7s9Df6Fy
x5a7ciHKTlz1JdrwyvPXbe5coLsJuf1Ff24fC9Tz5IKu4UC6H4cAA+vdFYP7
uBAW2ZhgyiWAqWbo7H2KC9Utbbs+kgQsy15w61YkF9z+aET/RPuIsX91n+aC
h+G9S4IUAT+HSlN9ornwokwr3ADNK9Vt3BvPhclLhzamoJebalr4p3GhqrJ7
xoxHQKCjsu7BPC7ohOaNpE0TUFo78+/9fC48e2UcmY8eN+h6P3SXCxVVRlOV
6EjpnAOB97hwxTT2YS/6AlMhL6iEC+vc7mqtniHg8V45hZAKLuw2/7KxDc07
Ljnn6AcujH7aqEfOEtDcOu7X2syFBCeFx5ICLLiu0flSqxXPw0RKRQVNYxWc
6GnH9Xnve2qHPmlu+cORwQWtxAV1GegJoaNvNXu5kBrQ4q0hyIKRNCKu6y8X
fPxNv5gLseD5YG2PKYcLi+LDgxzRqVZ3zbO4GP8o3X4vtPb4kYktPC7MiMw/
F4UO2D7Pv0qQhOLSiVe16IFlFjaZEiQ4RVS30v5hwZf7eYKbV5BwUTrcT0WY
BW/Vv1hfUCVBv+2Wsj76Ya5MXIcaCWlVWY009Nmr8aKeGiS8kxztdEVrJh+Y
F6xLwvFD2VLx6OMBOrIXTEhQe1xS3o/eM+C3vWMtCQELC3VH0fY+Ny7LmZLw
4MjFdBK9bKekwi0zEoZ0zFcsFGFBg92oUpklCbv1TVzWo+drPNbs2ExCQsz9
0Utozp3hg3IOJJideKh1A92rpPbAw5GEgnXvtxagn8hl6fVvJSFbysqnGu0p
emL1hBsJr3Kj03vR977RzOW8SVjaYWShK8oCq/yGrR5HSfjKnNdQjg40MNa/
cgz328fxrEZnVt+VYBwnId9CpL8e/b0d0/8kPs8lrrIdfW7ayWbTaRKUy7bH
/EIztn82WZeI8bm44pyqGAtmex1kw5NI6M8X4GqhNQ/Vjj9OJsH8trLrKvSp
2Nwyg3MkJJZptpmjl5cd0Na4RAJ9NPe7Gzpw7oSi3HUSKuNEs2LQGZn7eK43
SAgp/M1IQD9XZnZeyiFhl5mp6Dm0lEn1ZcnbJMQvntHNRj/xjV4ocpeERRti
rt9Hf/01NmpdQMKxjAr7UrRohF9rdCEJO2X29pejd6XZpvLuk/B5rlxvDXqm
RkJkopSEXE/rmWa0hl1Uv2EZCYZtDov/Qzt3jNaHPiLB3/CzIh2dN9gRNfyY
BC/lc+Nf0PayVzl9lSTM04+oH0YfuS3OXF5NwvW8r7aj6Gs6kU/31JBQU8+o
+oP+ZeUd1vmChCzXtAAuOj1EfeS/BhKqndyGROawwLY3h6n9GuPzZVRhLpp0
lXsV+4aEBqtREwm0n6nYtTXvSOCYqelLo+WLz8RfeE9iHnnPlUU3K3EO/2jC
fMqc07YYbSw8ZHe1Bdef+2iJInowfK/Rn1YSBLOf3VRG3xhiKW1px/EK4/kr
0MJtTZO8DhJUtAuLV6IrrWx63T9hfNtvf9ZEBz+paS6lkyDsoDSpjaZfLc7z
IUiAkIc/9NEpEuppVSyst4B3davQFmdy/pX+TEJnT2jcanSB/wWX119JyPlz
7MMatAdTdL1iN55XN9NpLXr+5jOa4T0kyI99fL4OHW5weFajn4R7mnd2mqG1
7wz+jB4gwTM3IsEc3SWzl8H6hvU3MHFzPTo9kVW/+gcJ5DW5OxZoO9KlJHWQ
BNOQ3jRA84KbrgwMkaAttjPAEl3WbR23fpiE2vmndazQ/ttqQrNHSOjTc2Xx
Lf/GyHP0Fwk+kl+PWPPju7bY1n6UBLa74iTf0UVqq3PZWK9lcn42/Hgr5iiS
YyR0vP5Qw/dQmuxc13ESjMxhlu+bQhcmHkyQ8L72qN4G9Lbjoj3Cf0kYmAiy
5Vt0MOqD1xQJjQnam/mu9ph69oyD+bmsfB3fIS2hd6RIEpL3iEjzvcJy8HwA
RUL0xEoGf35GuU9EPY+EiIQl8XynqLP8FWZIsH3ercS3xRUX56OzJJSvj8zj
r/+PeJNZswAFoeVj0nwXnLbWUBeiQKbB+hB//57saumofygwkAkr58drgZ/R
DEOYAj3ns338eL6mPxgyEKUgSDF8mh/vk/Zq9CQxCkxVnf/hW7fmRl3vHApq
5yya4J9Xj55sMU2cApXj9W3888y8ff5yxjwKDkrtyabxzyc+KmTjfAoOHQwe
4OdDGefvrptSFDSH9weZ8M8nKHTj1AIKfB1du4zRLc4+y+4voiCfrRFniD77
ihATkqXAQTy9wgBtYuIy7iFHgVriLF2PH/+l1k0SSyhIsxn9qMXP50cS150U
KLgzlU1ooGl2zKCLSymIeSf0QR3NDAuWlFHC33saRKjw99+U7bxUlYLJCHmK
X19d3ntVvNQoaN2sGMKvv+JJnT831SloCZpq5dfnJpX6jBWaFNw0MfaQ5K/v
5DBDS48C9cUSlwXRzvOfFQbpU0BenDo5g/8HSvnRJ0sMcDzlvT2FrmmTVTBc
TcHLi1rlE+iJlZZe69bi88Tkir+j99Mz+22tKCjUjrFoRBsHeT9JsqYgSoYx
24AWEtSOb7KhwLbN6GEt+pbuy5VOthSUbJImnqKJ2KGD7lso8HO4vC0PvXm1
BdvPHeOtmjvyL1r+3Zz6u9txftm4tOPo714fL/3YQcED+fTlh9GxyQFGQR4U
vOteK7mP/3/dkx4e5k0Bw/H7Aie0QdoPXvRBCuo2lbxahk6SqOr8GkgBMahS
K4vuS06ppAVTsHxLU958dGac3rGJEApm1tWvEkBzIo4OHzhGgUBHhksfvn8a
/GdZTmco4OzTfXQHvbSvveJBNAWnTVV9rqGPed/JmnOWgs02EeQltIbHRpeG
OApGOhzHovnvs62p79akUGDWMvDDC+1OW1yxLAvXo69FLUKXVgxmRmRTYHx3
515x9Jw11WGMyxS0FUk/FkBXG3jpX7xGQZiJ4ZJf+L5VUs+7+89tCqrn+bNf
owelDDJ/FlGw0XSm+TD61DfbI5V1FFz1GXapwn7gd3yg8Uw9BUUJC6ZL0L4r
L0zZvML8VS3KvsPvHw7QT7e9wf0m2mSlouWG/FK+N1FA2+pQtxtdNhKdJ0On
wCTqdhuF/c3AeDX98BDWQ0Feny56R2bXlWc/sX62Zfkoo5uMhXbzhimAI1Yt
C9GPjm/qS/xNwXjdf2F/sV+KmmL+vjlOQU2F1Ci/f5KnJsRapinYvXqoxAHt
IGRA05LmwRejrW6e2K/NPkq9FrCIB2lep3hb0OV7B8lCGR4UxTlnmqPl63Nr
Vi7mAY07na6IHjgjs15tGQ+Sqm82d2H/FznNBeWVPDjsUL96D/oB5/VGWRoP
dEo+Es7YX4qPergI+vIgdInejAj2p/YJtbWefjworxHhsbHfTVBcofvMnwe6
2hY/PqOFHIZEgw7wQKKOiH+E5t478fxTMA9YstP9nuhB30yNeyd4MGi8YWUJ
9s9vGS3TTud5kDzz8ZMV9t+xtZZFNyp54HC++aAx9vMxbg93HJk7DemSfusa
2ATQWpi2c/dOg57Sft8ng3h/kN0QN6diGkzWForXdxMwV91UzkpsBvJytlyJ
YRDwW25wyHzPDMQoxHclfcD7UJuydNjDGegr3zQdWkfAwx3Xk+bPzkB7z3De
+yd4X2totwxxn4UXVcv9XQrx+xMXHMUKZmGy8e7oLN7fiuaI3fCbnoXMAbvW
xhRcv1CMZAg6yH4f+w26n0dGnUQT7WekX6OXjf3eex59dmvx9jr0BRZDowId
K9zfVYkOKyp4LD4zC3HOjb/vo80cbD88QlenBkmcQ++0rTN/zneynn4K+pgl
rfQturl4ZGsSutRY/9JntIGvb0Ycermi3A6R2Vk4nKKjcBot/Ptb3060ySdj
jRD++KC3mx9aQf29fTB6fR/rzSH0lusegYHocEbLvbPo4qljJfvRg7VPQ4rR
rYcTjbz581UZ9DxDXxkRdvdCqzy+71LPHz9/JtwT7VGYY8xAZ1kGV+3gz5e7
uKAHrbetq9MdnXH90uJhtE2yI88VXZY1L3kS3fmtSnEbujktnpxFTx1QBWf0
/xV8mc0=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13k4Vev3AHBjIXUlqaSkJF+R0CDUUsoVKpoMzWQuEiFlyhCZ47oqGpA5
0oQUqQyJEs4x5IZCyJhzZNjvPr+1f3+d5/Oc53n3etda+33Xlrd2PWgrwMfH
J8HPx8f8brrgI8zHNwYzEu4pyXKNkM7/J2Un/xjw7+1QCFzVCFLx7luCBMag
5Xv2TVv5Rph4fs5+jvAY2N2/KL9hTSM8mT35QVxsDEoWvZ5XptgIG6/rRy2T
GoMHtvsWtak2wvq74os1lcYg+KDS6KxOI6yuu6tgZzoGMp5q3RzzRvgo5hsS
kzkGjtsGturGN8L0Xz3av6fGwOvcm+KemkZY1Bu945XhOFxrNmUPzjZCf/JE
0N5741B4MMA2QL0Jdi3vXiExNg69nGDLjjNNYH41bPrW37/BYM9P/isJTWD5
yH1NRMpvmNhp2H/6fRN0pf988Hz4N5gLTuh6jjbBav/F1mm7J8C9v+GNu2wz
DMjVedb+MwHLE815LbubITm2qs2idwJURx6QcadmEOvx8cvR4YDXmrTj9282
AyFFXpsjOXBudM8W2RfNkDuT/yToBwecq11Jf3szGFQP6GzbxoWov8djTpFm
sLV6tEwpnAtWcyZb58myQK9BeVt7JxcuaY6XlOqw4J64+qPKjZPwxdNButWc
BS/Xj1t7hE1CeGLDp5ceLKiQ4drd+DYJ3LhVAiExLNjXEFjetuEPRPOp+8tn
siDBocZyKOQPxMX4e0I5C05X/2uo1fIHMhcdU7ZtZsHSyZyQX4pTsPhB0vb/
frIgYq63kLXvFCz4ct4haZYFQZ31LQs/TcG4RhSvRJwNW2//NxS8dhoEqqNX
Dq1gQ4uCuumpK9PQSg1cdVNlA3Vpvoj7x2nQX2UQ81KbDR3ZafxGq2dg8Q6H
gY6/2bAz/e0BK/cZ0LkT8nniIBtuuqwd+vJ2BvKlT+WXH2fD3eW7asWXzcJh
6TUumnZsUIv5SQU4zsIyW+PdY+fZcKXXwK34zSzcfpv1XOUSG0ZCnDbRFbPg
y4kK2IO2Voz+o/9uFs4dWa1zEm1oz/L9XDkLWaUn/WPQ0gM2N/pqZ+FHqenu
cfTjoYA0KdYsWN5yqSj0ZEPPxEvWhYFZqPu1LV7Rmw0mAmra/5OkwMzEaLDT
hw28wojbDosoCPAa281BPznTP5MpRcFA9J5YkStsWFrxoFRxCQVN2wWmN6J7
/KW2K8hS8Kh0WDIQfZVMg5wiBa3rPzmuvMqG3Kn3exZrU2A1Vvpony8bTmbJ
ZxzWoaBfZ478abSEhd+cBF0KJI1UQy6iPYu2VksCBZoOS1b9i97lmWMosZsC
hYqg+53o9okY43n7KVgRSurO+7FBbNTKjN+agm05l7/5+WM+QsvKjtlQ8ObX
c3YsOnTFapUXZykwKrR4nYoWMBmY42xPgdTitiNV6Oksr1fN5yhYbj71VDyA
Df3WCeuyvCh45bpXMRFdxa4n+6Mo4MnOjN4JZIOQi7pzdjQFPrdiinPRu4T/
aRWMpSCSU+laii7TPP60+CYFe2Jlc9rRz2MHHVYnUfDwdPr+pdfYkG40t5mb
SoGO3QuLWHRQmV5OcjEFKnmpvu5BuD/vSaqzhIKDym82B6A1NPMOrCml4GLc
yLdI9PfMJdzs1xTkCQULZaB3xY1A0VsKmn+8TG5BC5xNZn2po0DtVpqAVjAb
rolO8c3tpqDErDh/GN3+7tEho+8UuHV8jphCa/jZZET9oEDjn3VWgiG4/u9P
xlJ9FHR4pdQuRe/qeJgo/4uCKbO6mV1ogYJDKrpcCgreB9xKQAceLjB3EyWg
nZ/YrhLKhrOTzkWfxQikth1O24I2SFJaskGcgFbAlJUeWrzjAXtwAYH4138S
D6GTbBKOnJUiYOAitusy+vHFy4fM5Qi4qivYVaDjpbY8fb6KQD9LZmUt2vPF
b0mp1QRUh6QqG9G6M86NDQoELAZlun6gqwNPmhkpEzgUl2okfJ0N32L1D2zf
TKAuTH9iN7pCg6/gzhYCllVmySbo9OZXC2a2EjhiHbjpMNpp6ZZPL7QJuKiZ
aNigufeU9m3UI6B04b1NAFq8YL7xGmN83nT3vSL0qGltTqAJAeV9fTpl6Mbf
oWJd+3D/3f+rfo9O2sJXm2xKoE3fM/cLek3Zb0PpowT0VSxyB9Ha9S0GomcI
8Nt8D18WxobjfvX6Z6wx/oJ+Pjm0v9o7vRIbAkmdvfYK6Pdx+dqOdgRGpz8K
q6H3Hw3Z8MGZgLWHd6A+2qZTQzrcE+M99N9lR3RorNKibi8CVQ5rx8+js3au
lNh2mcB4QoDFRfRImqjYwBUC63W9/vigvR26iGEggd6F/3pGoCPHo3pFIrE+
UuuvZKPzU4O+n44iIP/Ri5OH/nLocmdxNAHNNxMnHqOlX5xtc4gjcPx8AH8R
+oGPTn1NIoHGeSsj3jHxr1evXZVE4NPQ4tAqdF+HYrX3LdzfcmO3D2gVkKxQ
Sibg6+ix9DP6heDAs7AHBB5yJrLb0K3PvhV2pRI4dnHuug70rG1zvlY6gRgj
u4RvaL2a8qz+DALDf83X+4G2vvz8oV4Wgef+Fn696BDl3NSkbAK6BybzfqJr
IxOTDfMI7JDc+PUXemh75K37jwhMXv/cPoz+azQwcSqfwNiZmtpR9GGz87FZ
hQSSDeqvTKA7F+8OFinC/Q8dXj2Dlh2MsNtbTMB7k2fELNqirMnwRgmBoZXC
Pyl0o53NfPFXBHg33C7x0At0ckdNXhPo7DHL4gtng/FfE1+iygg4xD2s50e/
L7qW+FcFgeCbeaOCaP7IWm/TtwREy62HhNA7Tksei3tHQG4k7qsw2meT1fbG
9wQyInRez0EXiaTKLaoi4C54Jm4umtMxwH+4msCJCkELEfTGQvWehBqsp/ra
haLo8yGXq1gfCFwrq3rFOMeyIkv6I+6PNWAlhu5TFY0wryPwtSvmF+M1Ambn
k+oJrNz30mUe+jQ76UDbJwKRIU49jJNzutRlGgiUch+YiKPb/JSkjn3BfhO1
zmQsfejC5J1GAqbr8ziMD64rbu1owvirAzfNR8fM8l6uYBGI3dtjx7ju898p
J9mYH1lWBGOR9Bj/ey0EgnKPpDHe491ypqsVzwdr+0eMr5nI7ZZvJ5CdOy+H
cdkqe0XrrwRUJvRvMZ7l5IukdWD+0xZeYaz1YXLwx3/YP0qeBxh7pOyoV+gk
4DR8UZrxY7fQAtsuAueOizYw8Q7v+RSX0U2A06V9lbGyjLTHz+8EBPpEljO2
GzlxVKmHQAjbI4/JR9rbh1qOvQTcVgRsZNyVOCyT00fg37UqmUw+ZZ03k8Gf
BFiWPhKMLcG3c/0Arq9w7hxTj8RFlRXnBgm8HBcoZerX+FM8/dEvAu3KehRT
X5PYZAe1EQL/RT49ytQ/7GyP0YVRPF8ihlyZ/qjUUlEtHCPw596XK//fP92l
4xoTGF/xQ2cB9JXngs3uHAJz4v49wPRfcbjxi2dcAnrKOopMf6prfPXZMkVg
j2FKLsH+dZmz5oTXNIH8ByetmP7OaXeC4hkC82xbZpn3QSFoRlCb4HnayJGe
Qp8239XnQxOoNE2OnUSnrL9RU8rDenfzEQ5zfjQvi9ouQIP+jzn542jRtduk
d86loY9SdRtEN3RdF04RocEix+NoPzopmc2ZEqXB6Ii6Sh9aScqj6bE4Detb
F2V3ow0EC2JXSdKwiy7ob2Het3Lif3URDV5CbWYsNMvHxLVVioYnrqG5jeiz
vwf2xS6hYU7WpY316GvdCvP4VtDA4rUEVKCNUtxnjq2kISb6qEsZeqHl24Ei
ORpM+uxNStH3G07VuK6m4Y68UfszdHn57ZDOdTTky8D2TDSVIsFXrkGDg5+v
fDhzHlqeGpXZRIPqNr5lIeiIxfnfPDfT8PmyBn8gWibK+PUGLRpaSvLSvNFa
V0N97m6nYeK8sro9+pIVxfE1pCFCt8N1J1pX2rinbS/mL3CDuy5aqPFW02Zj
Gl5Om9hvRSfs3fpkeB8NGwu48qroJ1oXXU8coiHNSKl7CXMfSPcP6J6koVMg
LYy5nxq4YWWBp2iosemje9CFzf+LrzpNw/g1AYdOtMdNZ11TGxqe1dVKNqNn
549G2zjQ4KT3vvYVWkR4UvPGRRoWSN2vjGDuvwlBv5ZQGjL2KozLXWfiSz8o
G0bDgYwDlUvRfY/3rDsTTkOl2rXIhegcl+sNgxE0ZMYLcATQGwfF1tCxNFQo
3lrXG8r078IahTs0KEWeWZ2JtvgsJ3mxgAbuXt8L8mif19NBjx/T0K/xqHkp
+k5uE3ekkAarmTgVCfS369fbnJ/RcDfev4jGecZGb/S+bQkNYlwJ7a9ol8Iy
Nct3NGR76k7EoYPjT+zTa6HBVmITTOL8lBG4tdyvlYaSxPuyQ+hq14Xqr9to
2HZseLgbLWZSKaXdQYP/XNVz9egYIdUOzW50tVNLGvr2Jcpp3S98fswCp/3o
AvM7YQt4NCwhjuG3cZ47rnp1rgMfDxqM635GoUUET4RW8PNAUUZWKxB9On9l
sIcQD6YWR+TboyWFU/3bRXkQn8X+rYn2eJLlmSHFA85YevsHnDe15r84u0OZ
B+KLV2n+wvm04m2DnssRHhx8d9ZeCOfdsFLBh4+P8qBvLNWai/Px/mdbRCfM
eXA7nGfWh25/mPzFy4oHyUHL5tegOWEO1oGneHB/7x/ODbTiAb7gBEceHHWO
iVyAjvyqVv3Slwdct7YecZzXLTjR++Zm8OCYe2doH34v5IjMTbYhPHj2zunz
Pfw+qRIInO+CNjDSk2f8g5rx80Y7Nki630XLjo+ciUL7fs2XTkFHt7HXFaGX
Dr89cRt9MSfjqRjNg/d8x34loHVMDD4WooV4RkI30BYGb3Rfocd83xwJR3vo
aedXoaspjcwwdP6mDXFf0Y4zC4yuo1etkDYX5vEgjZsaE4wWGun9boFOGdGW
8Wf+7z912Aa9xSXA2Q+9/Xtb5Xn06PDbV75oT3Z91jX0t+Edp66i+8ueu+Sh
/4xKpl9m1itR63qBFnHT43qj5Z9mm1WgTX87GTC2ykzZxEbncF/0ezLrPViS
0YV+7dW6jXH8nbglv9BLZyZvXEI//mdeOBddflWywwNdFxMyw0MX8ZRVGf8f
4xbv9w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1., 0.3},
  PlotRange->{{1., 2.}, {0.2831794297783429, 0.39112956278595984`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5554127664375*^9, 3.55895006096875*^9, 3.559050266953125*^9, 
   3.559141357703125*^9, 3.55929529040625*^9, 3.559310527640625*^9, 
   3.559921529265625*^9, 3.559965069484375*^9, 3.559968329109375*^9, 
   3.56015588590625*^9, 3.5601568655625*^9, 3.560157067859375*^9, 
   3.56024067515625*^9, 3.560522160125*^9, 3.560523110078125*^9, 
   3.560527422421875*^9, 3.5606819626875*^9, {3.560682009578125*^9, 
   3.56068202078125*^9}, {3.560682333984375*^9, 3.560682361890625*^9}, 
   3.56068240290625*^9, 3.5606830889375*^9, 3.560690060828125*^9, 
   3.5607543361875*^9, 3.560757357328125*^9, 3.560757475265625*^9, 
   3.560757990515625*^9, 3.560762684671875*^9, 3.560764995640625*^9, 
   3.560788249296875*^9, 3.560793013046875*^9, 3.561132562046875*^9, 
   3.561728413828125*^9, 3.561789961796875*^9, 3.5619827111875*^9, 
   3.562046480046875*^9, 3.5620693073125*^9, 3.5623517735625*^9, 
   3.562354812125*^9, 3.562466001565506*^9, 3.562961816109375*^9, 
   3.563086808203125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P7850s", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"SN7", "[", 
     RowBox[{"850", ",", "dfib", ",", "0", ",", "1.2"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dfib", ",", "1.0", ",", "2.0"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", "  ", 
     RowBox[{"{", 
      RowBox[{"diam", ",", "\"\<S/N\>\""}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.555050326*^9, 3.555050355015625*^9}, {
   3.55505038553125*^9, 3.555050392265625*^9}, {3.5550504924375*^9, 
   3.55505049440625*^9}, {3.555050565203125*^9, 3.555050566828125*^9}, {
   3.555051333515625*^9, 3.555051350859375*^9}, 3.5550514116875*^9, {
   3.555051536796875*^9, 3.555051556765625*^9}, 3.5550516093125*^9, {
   3.559965064078125*^9, 3.55996506703125*^9}, {3.56015685946875*^9, 
   3.56015686146875*^9}, 3.56015706321875*^9, {3.560681952546875*^9, 
   3.560682016125*^9}, {3.560682292703125*^9, 3.560682310234375*^9}, {
   3.5606824360625*^9, 3.56068244775*^9}, {3.562069100171875*^9, 
   3.56206918653125*^9}, {3.562069224015625*^9, 3.562069258734375*^9}, {
   3.5620693250625*^9, 3.56206943153125*^9}, {3.562069469796875*^9, 
   3.56206949534375*^9}, {3.562069591515625*^9, 3.562069592265625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwV13k4VV0XAHBThSSZGshMRKYk02chY5mSSgpFaXgjQ1dUSiQpM5XKkCFT
lDFDiigpRN4i3XtDeFFEueccJL51/7rP7zn32Wfvddbae21ZzzNOx7g4ODhW
cXJwsH91/M4v4+CYBrHs1U1tm+mQy0mlm3JOg11DumyeKh1EkwN1I7imoX9t
nF2YGh1mqk4fX75sGspbs/l11OlQ/sf9rQD/NCScmlt/V4sOmlE7YteLToN7
g1XCAT06qGYIiG1VngZHtfHfFRZ0kGvPUPB2nIbjTwzsOz3o0MYfGhmfPw3c
lecFKm7RYW71sMHv2WlI6n0U8vQVHURG4ozrrX+BTG9uQfMUHcbSZiJsMn+B
cYrkFlkJBphJDG4Umv4FL49Z8USbMGD/xetzd61+Q+6wl+37Yww4UBIofzP9
N4Tbu+mpRjFgIHc0q2ryN3wmuITP5zBA7rKYZ475DChQB6rVGxgwLt0e9O7W
DAjKetY69DAgLaGlz2VkBtetYB76nQH8w+cvFRmywKQoba7wLwP+/q0+ty2G
BRaXR4NFVjFhui+nNCmWBVx289K70d+q4sen4lgQYHv0fhy61ef4waJEFjzQ
c17NJ8iEJKY4SN9hgbemycQftPJz2nK+bBa8nVS93CfEBOeLW28xqlnA23da
86woEx7NPy6PGGIBp6jrnLIEE76O/Hv9yzAL/EMsWK5ooQ+z7lr/sUA5kNYS
gz6bb7ayf4wF18xqpqfQxs49XgY/WfBI2c2tUpIJ3SV/RX/NskCpqOn+Nikm
zB62PecuSIBgw88P62WZsNnW365qNQHlQ3kNlmi37bflBdYQQLtkGxmIblo1
0FkrQsCwOi21HR1TF6gstp4ADYWurxflmCAter+vTZ4AXT+b6U/yTLB8M26o
r0+A0GX1XaeUcP2fDlPBBgSMzj5MiEf3D/WW1xgSYHHoU0UlOpijRUXPmIBu
1unkRXSRfvba7TsIkFkiqxM2MUGw2HVGx44Avm7te4+VmdCT0FakeYSA5jbl
wa7NTJDLNPP28ySgJOnbyC/0mZJa2VIvAp52MFqFVZnA+y4/VcObgLbiHBVn
tAH31Wvq/xDg6PV73yd0Bs3IU41GQKuI/dEPakw45lqyXjmagGc+HcdL1Zlg
5Kj6LfwGAfcaWh91okUtC4uYNwkovVDW+hPdpPXQMDmOgPmRw7FqGkyQ4Ut3
W0wm4N3RTrM8NKM6JutjBgEtpYWeSZpMcBI7rXKlkgCHedM0O22M/8rvv+hV
BDxS+If3BJqT80SdbjXGb62GfTi6dMJr10QtAQ/JNO+naMFXB332NxAQLlDQ
JrmVCW8DdpVteUeAbZDuP9/QJl2b9b/0ExBUzK20exsTtMfn/9s4SEDoZJHH
MbQ8V1vKkW/4PltacAh6uc4/02PDBLycvGqVhW6/8yifGicg0pf/0BTaxUNN
XIxFANeDCM9IXSbsDF5odiFwPhdPJdxBGya2+6eRBNy8UZdeiJZqPt0hP0dA
XF3+vg70sFLJVe1FAlxHNc1EtjPB7+eWGQdeEoRHP3DfRXuuWHyQzEcC84HL
5kL0Hpn39r38JJRfitOsRes6+Ra5ryIhV2o94zN6oerxER9hEuY0FUrF9Zhw
PVSj64YkCcH6Qw4x6EwBrZLXmiREhNyI8dBnguQq3hMK2iQcCn5XcRqduqpf
LmIrCdGmz6tC0AmCsakmuiTQ936wSUaHC41HPDMkof2MfcUrtLdolmuZJQlm
/IEJMgZY76LBYkLWJHAfOndMFe0h5tDla0OC18Q1MV20i/hfCzVbEoa+Mpfv
QtusO6CVv5sEy9RlGoFoNck1vOmHSNAXF7pXjy6QHGv640ZCSIC73Gu04saG
UFcPEhxsha51oKWkfGbWepLACqvsZ6KFZN5+TTpOQpHEXcYCOkbmwd1fJ0iI
TU434TFkAp/sOWfHUyS0JWuFrURzySm+W+VDwkN1qaT16Bn5K1XXA0h48jaH
Uwftp+DiNxpIgnz4CzMD9ISChqoljcR8T/EwQQ8rMh9wB5OQ3BytZovu2aQf
cymUhAu1GqKeaCdlISvmJRIMjjVuPY7uVB7lNAojQeuqnsZpdKvKrXNz4SSE
ChK1NHSd6i/Ps9dJ4PqhJx2FDjLkfNYeTQLJtBe4idbetUZE8SYJVkPNPXHo
olNazZ9iSTg51M99G+193lRCPZ6EAaNE77touRu7A68l4PfwfpqXhr5f6C+/
PZkE+ObXkI12qb1yIT6FBJMkodSHaNG3if+O3iKhsU3PvgAdM1YWkZpKwu2k
7XtK0NazL+nTd0nYcGFd9hM0D2/3Vpv7JBzIuf2+DH1x0++huXQS+I9fbqxC
623nMnLKJKHzICuyGs2yFE4pekCC0A4JlVp06T65Ca5sEn5YzxXWoU97a5sf
zMF8uJvMW49WDjJLq8glodVjyvw5O96RTqyVeST8fLPG4wX6wS1P26P5JHxd
WNrXgHZ7GJBbX0BCjkqDWiN6Q1X4gmgRxi/YeYDtnldJzj6PSDgl9tr/JTrp
Y3bx62ISjFXEB9m2Hy7nkXpMwq2vtupNaH5W06GgJySYevgeYLuF+9/K96X4
vo+XPdkOFxkS2FROQt+JazZsG8vPHL1cgflpHiXI9rw29/PeShJUE6LK2OM/
NRMR03xKgiYtRpvtACd5n+vVJDRL3E9kz0/dc+vrgRoSlIpr3rPX891/x0b9
OqxP++/j7PXmXdlDS3xGguzmbUPseHgmenWM15Ow7HhGHTte0lmBimYv8P1q
qn7P0IzSiNB7DSQIZA1ws+Ob2pj86XcjCeITzbQatHNXzpZdTSTw6Hx5/RQt
NFARmdOM88tUZlWi26eamX9ekVC5p5KjAn196d9tzi24n5wL/1GK5pBmjfC8
JUE0Z/5gMbpencfY7R0JYcTjwUJ0sLHo7ao2EvbY1lnko6fddCy935NQfPd7
QRa62Mc840Un7gef1xdkoE+EOpPiH0joKqmMvI8eSDub9+ZfrN98U0YKOq34
6qL0J8w/EeO9iez8rU/ZF9xDwpesuuJYdBe9crlKH+ZbhTUViX65gfC+8ZWE
hOPWf86y12+3P7etnwQJo5M1fmjfsNpBgUESlj5HurDrccN/oYfih7BeRZpN
vdjfp2y5U8oYfj+RphoHdv4Pn4j/NI77WdW2uJ1oqbVt7eI/SJg92WJpgW67
GG91d5KE0kcOR9j7hYL1uv9l/MZ6mqYZybPz4fz58/0zJNRcs1TdyJ5vCaNa
hsB699n7VxwdKpKlnUORMPzaeBc/O1+/qigXLJBQz6yIm8L9LIpmKFK+nIIV
Ra3VlWj3gnTHmRUUDIn4MYrROvSlWB0+ChQVU4dz0QMmr3irV1Lwqv18Zgpa
T8Bu8ZkQBVsFFxsC0N+z3cdfb6CAnnXviQq68VOj0gpJCoy/GAmy9/PbvPJH
rTdSMPU1y1EcvcN39Os7aQoiO1+FcaHT9P0+dipQsLF7MK4PzwO7risNfeo4
v88i3uHox9+/8+lqUkD7vEogCC20zNk5SYsC+3b5xJPobn2l8Z06OH5UjZ4j
el/OO+F6fQp2Cq9blEC7B4l4Z5hTQGaae5fg+dWQcLF03gLHvxLAkYmWeTQy
v8+KgskNQucT0N/6q+NX76Tg6OEnKwPRx20O1YY5UFB8VqhQF+0n+VDAy5WC
gcHJrmo8Lz/oCu5vOEiBYWf00Xy09u5zWRJuFERNj/XeRrMibXQ/elAQmrPM
nYYOmZr0sDhGwcXonWOa6PAm3YpNfhQkOMbPZeF5nnKi9cBEJD7vPrT1NPYH
q/MiorWiKNhSLaZ4AH1jyLg26DoFZwbM/1igr7hXreO8ScGuT+J7pdG+ztm9
YgkUVK9cetGlwwQrk4t74R4FpUuxZ9TR82s1dyc9pmBJmefIJ+x3aHt/hPU+
ocBIsWD8BXo6Ka9UsowC+TvW+wvQo6s2CuVXUDCTGD94Hv2Rm7/zWQ0Fq7uK
yqXQJVNDtiNNFAjzPN95RIsJh9/csdbrxXiuDD7Tjf2ZhGiM2LnPFAj+eClb
i+45HPatqo+Cg0q36jLRtvMnLm5lUBDjNJp5Gr19i0Gp+iAFZfR8/WVowWTG
WsUfFNQ2cJdoYT9Y7y47umaJglNzpx6fw35yHVkU+UNpFsq+OhI12L+6b87z
sFCehUkpybrb6Fz3LP1MlVnYvkbU8yxa482dSSe1WeArTz+ogbZMvbq3TmsW
dh7MInKwH6YZuCtGG82C/1Dl2yjsl7svrXmt5DQLAf4OogYKTLi5IpjHM3QW
whJ3mO+UZkJEf0fvmvezwDVm3DiJ94vt95gTVxXn4G1eqbEwLxN6FbQcPS7M
wQGHZRf65xiwQFvFG9g2B3krlXhsfjCAUZjDuVNuHq69f5At9IUBprlNDq6B
8yAx+VCmvpUBSb6KEx+a5uGVZFZH5lMGZEiYvRNY/wc+FJpFtWQxQCN+dCHs
5B94RuuWNY1lwIURS/+axj9AzzjNO0pjgC2XhoGK8AJcp42kS3rg/WvKdTen
5wK4hr6PH7ZiQMQLvInVLIBxdVHHmy0MuOL8ZL8/31/IPdnjc1uUAQYdvZZ8
R/6CpAH/Bf9ZOvSLmV/lrf4Lf0Z8vLkYdOBT1Bc3XbGIfVzxsq5GOvwUHxs3
cl+EuPdlLdnZdHDplBYOeLII0S+eD9Mj6fBk//3rgkuLwFsZFCJ1kg4vm7pM
fPcuwWTbhi5PG/w/K85uRd4SPO/5qbAL789FvCvSvP4ugZuOU6cmPx1auK6s
8kUHubK61dBDC/OXgtEz7Sk9ymjJXz+PxKI33+liyqDj+no2VaP5Xm6dEEIH
FOVV8C8uQYhvAe8vPjoY2lq2laF9HXaZlKFdLBuN6tHF/NU7StBnTQwet6C/
CMtaFaIf66gn0tFy/NN2WWiZjeL7ly0tATMl5GAimufnyDcXdK+UYZA/+/mY
h7MX2v3RzRAf9P++9b32QUtEfrl4Eh3U01EQjj4gExhxBD32osq3GL2XjE/Y
zR6vVmPgKXrzZHeyHVq2onD3S7SblugdG7RrfrpOD3oqKzHdlD1e1tq8AfS+
9x0P/odOvp+49gdaw5o3Vx9demtlNIG+tNo0fxu6PT5yfgm9QyG4SAv9f8rI
c+w=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{1., 0.425},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1., 2.}, {0.42243615767853643`, 0.45677241915775635`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562069696234375*^9, 3.562354257890625*^9, 
  3.562354816140625*^9, 3.562466005456131*^9, 3.562961819984375*^9, 
  3.56308681240625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Frac", "[", 
   RowBox[{"r1_", ",", "r2_", ",", "del_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"del", "\[Equal]", "0"}], ",", "0", ",", 
    RowBox[{"Re", "[", 
     RowBox[{
      RowBox[{"ArcCos", "[", 
       RowBox[{"Max", "[", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"Min", "[", 
          RowBox[{"1", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r1", "^", "2"}], "+", 
              RowBox[{"del", "^", "2"}], "-", 
              RowBox[{"r2", "^", "2"}]}], " ", ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"2", "r1", " ", 
              RowBox[{"Abs", "[", "del", "]"}]}], ")"}]}]}], "]"}]}], "]"}], 
       "]"}], "/", "Pi"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.55895035546875*^9, 3.55895038909375*^9}, {
  3.558950537640625*^9, 3.558950605828125*^9}, {3.55895065721875*^9, 
  3.55895072725*^9}, {3.55895077571875*^9, 3.55895081025*^9}, {
  3.55895094959375*^9, 3.558950962609375*^9}, {3.558955465015625*^9, 
  3.558955517796875*^9}, {3.559229877640625*^9, 3.559229918421875*^9}, {
  3.5592303668125*^9, 3.55923042496875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Frac", "[", 
    RowBox[{"0.5", ",", "1", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951539390625*^9, 3.55895157503125*^9}, {
  3.559229928546875*^9, 3.5592299315625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN2Hk01c/7APBbQhRFRUplCyFZytanHkR7skSiECEUWrQolESfkmyVNpSt
kLJkC4MkESERKe+7uu7lEu592/36nfP53rf5Z87rzDnzPGfOzHlmRt7Vz9p9
PolE2j6PRPr/XhOkWLOzs4j0X/MbV7w1PkH4bb628giXsI7qAVcGm7C+RFjX
lw7CxtQ/9Y/eELaOaMzSdSZ88WvYac+KGb7b2haxqo5P872m0m+5vuwU3+98
agSX/Jrg2yVSe6gzdJzvwILY8MYgwve7R2SrLhGu1yjc89KXsG6jUcoFB8JC
4mZ2y3QIZ9+zK9tPHuO7tqjI2ribMLlnZZ9uB2EprZ8rVjcSDml29usrJmwt
4aUQHk14LPbKLQSEe2WrWDuNCLenCx1o2kw4vzRG4tcGwr6UjMcTywgfPTUw
dV2c8D6ejrOICGGja5eqogUIq4pWKK6cwdH80NT0dl44SMcLhCeN4WjFHnJ1
ccIDEFq7h6k8giOGU9ulLW3PYDQjam/OAI5WaTwMsml+DlTttuwtTBxFqCHl
7Rap0PpeZkk5BUf5yWpX4sLTodLc+YzZLxzVsw7L/xP5EhKPsLbYtOIoLyGE
ZKyWDZHUTQldX3AkP+PHIn99DVdOB0wc/4QjG/9Qn1bnN2B/nYT8y3D0bNX+
JLX1ubBr0U75sUIcaSfHVr9oywW9+3duhOTiqH+GIlkXlAfLXkntjkrH0VTb
k6JElA9NzRotWdE4OjwwO89CvBDKHM7q6t7BUTnPW3IgoRCyaEX3S2/iyE0z
+fhZuSK4NWbq8Dnwb/xhXsmscjHskDtCZZzAUdX+f5ZXSZVCsd9Nrrwhjgzk
GlwknpRDxnj94Ve6OLrA1bApXFABD24sLdXSxFHWgomfIqcr4NzDJ8GgiKOS
Hcvy/hgi0ES5wsfEcLR0hUKboFslpIj/lkkg8xBJPZrxraMKYh1B2LCbh6i2
jadKBKoh9GXyaGc7DyW4LXc32VQNrqZuX1d/4SE56/kyO25Wg8IFZlhSIQ9d
1z55wnLjB3jxa3gw/Q4PFfgaZxz1q4HkbOHad1v+jjs86ZGqrYWne7XPfvuX
ixibVwn+GK0HpUV765vDuAgSGpZukGyArAZXhaYQLnI96GjitqkBSvfHt9YF
cFHMosyD8V4N0GmB61Qc5yKFMZOwP90NIGVTPvLSkIsue94dbkdf4J7jnoDg
vlHUKKq3WuhSE4SeOn5pw55RJHjMIO/072a4IpB58ezAMLq8VplutqENjl/7
qtT+8g/qjqQfO7ysA+6X0xOeeg8hzHRNyhS9E0p7VBdnK3CQ9RlH2gnhX6C4
1Nj0UCIbffxNLvdYgkGe2i1vCpWJlndN3eYxybCuxaVEvZOJBpRwRTREhsiL
hgsDmpgIHxt5GjlGBvcaVppwCRPF80KO6S2kwEqnA2SNKCbi/l7rUatCgaAY
SfuLBkwk1usWQPWkwO6xp+aL7/aiPxaZtf79FHiXGBBvG9qLJPXvl3NGKaBg
bkFNvNiLenhxtuemKTAZM3tN27UXabgVvI4Wp0KOumuZnX4velm/mrNGmwrL
nVV0n5MZaE/mG1LcRSr0fMyV09NjIE4lXeKyKA2u2oybGWgwkAHbc+bAMhqs
JBt7GSkw0LyEKGF1WRpYTn3N3S7OQIsSYz5Pb6RBpQ7HdBeDjgb/1MYvtKZB
cpKau/0DOjooYtxQ94QGrpdTXgXyaIjMfbakSI8OM0Lsxqv9NPRo1+LeamM6
PI7XGQ6m0NDBQMEbXXvp0PqmyuhGEw1hZWdSNzrTYQejp+FOOg0tixme9LxF
ByUbWc5TOxpSbVUxs/lFB7rGfR1USEWxo6yhU7EMUAtO4zCzqIhUvVrHKokB
vl/fZUo+pyKvSeS9L5sBY2faFTzuUJF/SqbjjVoGiBZJLxNzoaKqZ+4rxaYY
oGXyeMRBhIqUe7I8hn16ISA2803YDAW5afmqnA7shVJqqU/OCAU5bExmC/7b
CzvCf1Ln/aagV+HJivHpvWDXINv2Mo+CHsoqGepTe+GKbVIBz5GCcg9Idhx0
Y0Jl+ht/OSsK+tc8XE/kPBMWjCGNvTspKEnXt5oTxoSox1jqMy0KUjX+4LIj
gwnJPfL3zQQpKPhmt4Ehhwl0LR0r3wkyQt81lANJfaAWaiqWMEhGSVdr5o9I
9kG+kttNdicZOUR8x+MM+qDWKzUgNoeMdB+Qp7+E98Gi9wXaZSlk5P3606zQ
kz6wXPxxgJ5ARrHeO3m33/RBZw7d3fAGGZ2N+5Z5tbMP+keU7bDDZOT66WG3
hzYLJIJf6WnOI6MMyhUney4LwgtV65biGCpZJuR4QpwNE5yMIyP9GEKmJ3Km
VdhAcU6/WvwDQ+SX7JDpo2ywS1gv/qQJQw9GSGaXL7Ghvjk1KagGQ7atP/e8
jmdDnklKtelbDG0s5Ile/soG5UCFQ+vTMZS7tDZMl8OGx3nP6cJPMZRfdDCt
X6wfQhWTFzZGYIj5yZJVbdkPPMd1j98EYej5mK2+3Pl+8I5PVI89h6Gn4YMw
m9AP1oLPLA47Y4hFbyqXZfZD7TZZzNAWQ2vtHSv6JQfA6MKTM7L7MHQhzmzw
tPEA5OSsEpg1xpDsdl85rTMDoND7KJ6shyHvPvKX6bQBeLBORrlG42/84RGP
BdgAiNonFKUrYMjoz4jZBnkOBEdL7/l3JYZs6lYc6z7FgZG6B10+4hjiZJS7
1NZzwHOe1CmLBRiKOqf8bdBuEArPqU0eH+35rz4OQSJNda0KRjjcVsWkv4Gw
nb5SxIUUwioy8o2kK4QzVRZOW+v/5ltDb1AjbaSbb/ttnOBNel183zAbaC65
1MH3ikM50UekW/nO431cUqdUz3faT/rdvrAKvo9ZyRb8dEvlu0T0yvfqgBT4
n7dQ5q29bo/4Vhx6P25U/ZnvPSmdjRb2rXybH5AU4L7r4Nu7fbQqVq+L73vO
Hde0irr5Ft+k5Rkp+ZvvqJlbB5ine/gOXnmo3uYRYV+ddbtQDWEPFCYY0EXY
aT/rg9oQ4ax+FZOh+RjYr/Cqsj0/CCr5DnINYhhIW3Wax7ZwIOXy3dm0lRg4
T4LdHx8OrDOu/H1NEYPaiAyfQ6s58ERopNxRE4PCQfMfl9oHQLpx/TM9Qwzc
rT8neD4agLg4+6sSZhh4zD4znjk+AEsc7jj2W2BgeTItiKM5AMK9QzIvTmCw
Ee8yT23thxuvFcev+mGgUL/m45GX/TB7zu7H4UAMvkX3Zyhc6wecVPZALBqD
U++T1fo290Pvqohll99j0GlvK3w5hw1u5JJhm1oMBr4aPQi5x4aejP4WzRYM
1uR+SfM8w4aOzdbRNAYGIduL6h7ps+GTxRoxS0kyqL1NnJT+woLlmmSps7Jk
kDqjGHG4gAUuYmly8cpk2Ox3X0v0GQsmGjQ2/zAiw9YUX4k8PxZo7PnH0cWN
DCph14+GybAgeofjK/8CMtR4x67Cr/RBt8K6/NgKMghx1gmf8eqDDfOpZQV1
ZICGX+z1h/ugutK7eaybDIc4RycNdPuAuy0QvyZIgUohztq2ASY4GDwyj7Gj
QPsLgT2JPkxIlz52MN+FAgtZ+5eKH2XCCE/uyHdvCuj3FUy/2M+EyHcvT8mE
UCDSPznXQJMJSKc47nkGBXIdSnSnhntBaWMHOXeMAnbMQE+T0F4YkF8R3PqY
CqrWqfUt+QwwuPL8TFUqFdI6ng/1ZDAgtG2j+9scKpBmAj6QnjJAKmLn/qhq
Kgz479t6OYwB2/svrtrLosKIcLPfNjsG3CvsKqwypEHFZIHbjyk6aO9LHnz7
gwZG8jddGg/RIeC8+vF7UgzYMJ604Z4yDaREB8vs5Blwwkv8BPdvPS5Oylu5
VoMBpM/31N3/1uupesPmbBMGgDP1jwuJBqHyu6H+1N88I5+713ZRIarpxBrB
DwxIxdY91ImhQrpqYmegXy9kzkiWDQlQoaN7qbVHHRPcZk+ojE2RweXyP73C
+9nwViLu1d6/+/KDuv7tD4IciPjkUVyz4Rcoi5QxU3cPQafyi977ul2wpszH
XPDWH4jAYuU7j/09txPzX52lDIOvwYeUSdM2wK3KnT6uH4W8e/KlqfotENr5
5td29VGQmbmrytzQAuLHXxwt1hoFhsLJd+tlW0DZP8Iha+soqAY5/Y4itcCh
KCu7GKtRyGn02yf9uRne1tMPHAsahd5i9QyOfTN47RDfxm0bBbnMyw+0GE0w
Wk8q8+0aBWVt/yJWXRNcsx4xYvaMwsMwE824rCZIOP7D4Cfr7/wczY05/k1Q
G/JicxWJCwcrZ9IEJxpBoUxP464GF1JSap6RRBrh52bn1evDuCDb+rBnmVQD
eIxvWXLzXy40arNtU3j1MFS+WIAexQVMoFN5ZUc9LNhVykp9xIXotOKtbx/W
g+aRFaVKb7iwyy3YK0q6Hq4FNdgrdXHB+bqjy1OJz6Bcq/9AUYsH4kLt71XZ
tfD2tvjtG1t4YGgazXX/VAtGB+lBVCMeVPboPw9IqYWDP2LdU8x50O9lVbbQ
sRYusQY2Kzry4LbEUAD100doEE/9phDOA6cqueIrD2vA//BSCYVuHiTiHPPz
C/7e519ueryezAP5VQyTkJ9VYDtuobiBwYMl63wi9PKqwOjJ3S1aQzzYer71
YrJTFQj2iDpsX4BDg4XlXpn8SnjsIZjioIHDMZefgTX3KiCySEnDSRuHp0uj
FzzRqoCQhWbvjuvh0PY9VsSxuRxOZIZ+OmmMgzgn+7fP4nLYxJllXziEw26V
6+nnA95DTcDE5rirOGjF3LnbPFUEhbUyFQ+u43CAMja15GYRvJI23PU4HAcb
ZlcgaVERRJVcPPI8GgfdvLMHHZYUwnXRh5TU+zgMpjnd97n7Ds47Fvq8fIyD
nCvj0NWF7+DI9GjQm1Qc5IPG4jJH82G/xXLh/Fc4rBuJcTdyz4ftSbrRhTk4
OF4qY2a25IGSydkX5cV/4zVZWkU+zQWp2Bj1qnIcsmOiFGfG34II9W1BTTUO
VjUV8but3gInbLC24QsO+MNndwzaXgP5u7jl1xYcWNfTTk5aZ0ObsmZnazsO
niI7T4aUZULtxQOu7T9xqOTcsSld/ApK6k6xOzEcdhQIuahvz4Bsmcjzv+h/
1+90q8/U7jRI9M6axlg4lGd8EbCVT4GY9/XhtEEcqN8c1hblJ0PYYtYS5igO
lr9dR6WKnsCFYyKP2OM4iOloqBvdiAevHFWFwRkc4j5LNJzRuA5HZ3dlDQuM
wf/e4xaWnpt5CwmbPA8vHxcjvHk4bee0JGGZeJr9gjWEDW6skzqvQNjurMM3
qgrhWMvmAx90CC8WKzMN3U145macBuk8YdpFU9JUPeEcx+SMkUvjfB/eFrK7
rnyC71yn0wpGU5N8j4nuECixnebbumWr3pqEGb4fKcj6R3FniXwWLdArnuPg
EfYkeY5da95HbOER1vBwTOqe44pXj5vUxgjTtGQ2fpogbCczb2Rojuvm9RWv
miT8urXYzHeOL5y3P7piirBI8cM7btOEryaHWN2dY84tT+miOW49op8iOkP4
6WR7ae4ci9Mqrv2c42tf0ncKzhJ2f3ah1X6Of9x0Sgid472+O52y57jMTlOp
fY7/+8/j+/8Ah1U3Tw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.55895157584375*^9, 3.559050276265625*^9, 3.559141368546875*^9, {
   3.55922992346875*^9, 3.55922993225*^9}, 3.55923038903125*^9, 
   3.559230429890625*^9, 3.55929530103125*^9, 3.55931053746875*^9, 
   3.55992287928125*^9, 3.559968348765625*^9, 3.56015589984375*^9, 
   3.560682524140625*^9, 3.5606900645*^9, 3.56075433925*^9, 3.560757359625*^9,
    3.560757996859375*^9, 3.56076269075*^9, 3.56076500175*^9, 
   3.56078825521875*^9, 3.561132580390625*^9, 3.561728423453125*^9, 
   3.56178997015625*^9, 3.561982719703125*^9, 3.562046488109375*^9, 
   3.562069696421875*^9, 3.562354257953125*^9, 3.56235481621875*^9, 
   3.562466005503006*^9, 3.5629618200625*^9, 3.563086812484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Frac", "[", 
    RowBox[{"1", ",", "0.5", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951539390625*^9, 3.55895157503125*^9}, {
  3.559229928546875*^9, 3.5592299315625*^9}, {3.559230779265625*^9, 
  3.55923078290625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN2nk01N//OHAVJRVSkqgkW0iylsozJUSE7EqUpUUKkTakUClZImTf9yX7
ejEzkrW0WcJgbDNjjHVQ+L0+53x/5j1/zJzHOXfm3Ne9z3vv83nPHLh219Bu
PQsLy1vs7X+fMrCLvLq6ilj+73V38eDLxSWm8wuPis3MMS0noXtthMK08vYX
3S2/mT49NNUUmce0oX9rlvxVph+0v7jjULOy5h8/tpDrbJbXvLf27k5lwX9r
Lr6NZ+PqXVqz9Zuj9C6fxTUvhDx+iWBhzaOCdWQNFaZ/pW7UbVNgurAieHvv
IaadBtOilnYwfdlx4t8zTqZ15uWubt7MtIq3R13QBqYlOGoO7l5hICnNPbIT
c+7A936DX9wCAy1JC3SphvnBxn3nx8RmGKgrX3xKseUtzKYFaudOMBA1x6rY
50swDB39ka04xkCzYb22ourvoaOSn6t6kIFG+Jd3NnmEQ+25q87qvQxkvLjO
/PqjCIg1Jyte6mCgg/YGylpc0fBm6EhEdwsDCdLGFkh5MfD4jtuSzWcGWm64
Z+CvEgdmz1jQvSoGqts1XNW+NQE0t2gcWChhoC+/jqqdLE8ApbCA514FDESc
2dGidDURdmTs0gpMZaAUMV5pq6gkaPsq/S0riIF0NApVr3SnQJWFi7x8AAOd
kfN7t80mFbJIpWEVvgx0kyPV8zUpFV4unLH48oiBGuzUVysH0+CskPnQiC0D
TXQtiyfXZkDZXd+5A8cZaLVy+TXL3hxIW2wyzZBnoPZfTrHnnuVA+HPuClkZ
BtqwvOOiCCkHXD989ISDDLRDt12ZlJILMqhg05VtDLSltKfr8rZ8SOLs448Y
mEfwTAu/5WYBhFjCpuN/5pHbiqF3QXAB+KTHz3b9mkelNzf508sL4NqZ6+0C
LfMou1Jt87nNn0DYfexFXMk8yp+9WRyQ9AkSe6cnUwPm0YSe7HvrxkKIz97U
UKw4j5p/7CdL9hVD0OKNQhPZefTK9hgpeLkYvDWa4hmS88hFtLIMJ1gC1sQ3
j48LzSOt9gPaARYlsH8nz9FqjnnkNPJbrvZ7CcQ+FozG988hsYTCTTbVpRCt
fdTl+6s5tAO/fDfeuRxEtmg3fX0xh/IUt0qPvyqHrOZrwm1ec2hjx6eCHYnl
UHHhfUej2xyywLVc4uoohy49hlyNzRw6clJOPkO2AnZdqp5JPz6HjnNcqEge
q4B3lufdPMdn0Vd1x83256pgl+C11sekWeSr+eqog0UVxP55JPqwfxb1v7D4
YHC3CnKvZP90/TmLNr20axqMqIKWq1xKN+tmEe0w362/5Cpgt/05fylyFt1W
xZ2UCKgGH0cbj0PnZ9GpTFU3+6oa6Au0iq44O4ukilzV7L7WgEqBZa2O6izq
WlC8rEeqgek5Y3Yn+Vk0moTWE7cgsPHSjvi0dxbZCL78yGqB4HSIfNmJ6Rm0
w9kq+M40gpVStgXdjzOIMqVdfup1LVh0rxfsD5tBUq8E2pdDaqHk3yrcC5pB
+eThgqKPteCktuQf4juDilXPb9yUUwu9TTS+33dnkEB9xoJqey1U9f5Wtlaf
QW2Sfxc28NTB4w2ZD1wmptG9Deyde4LrwCnSaqP12DSS1jNlOxtRB9eO7AjT
HZpGU8vD7LZxdaBt+eSTRNc0+mXQmBKUUwe7C/Um+vDTKNDRvvT9lzooujZz
TSd6GoWXiLBcYKkHWt1JPRGdafRqo0ho8I16GDSd+rNdYxq92Bdi/sepHn5O
pNxePT2NLtOVbgu51UMVP9erbqVpZCZx9dH7Z/UQ4DyACxKeRsW7Xd5IR9WD
xAG/48uLU8hM/7zzvqZ6sPFuF/mVPoUUom4ReUVxYNIVp9qbNIXiX4zdd5HE
gbbcPTNS7BTqip5vbjyCAwUS95vp91MIrzOMv6aCA3YtwxnOZ1NIxstpTuci
DnK5ftZpmk8hy8u+DTMPcPA3ttuqfPMUIjrLvIjC44DOyPSoZZ1Cgs/37Zb9
ggOS/uOQz6t0pGMv4YJacdC2XrDh5xwd8bkLuDf/wkGi/ZXD0wN0lHJJODNi
DAdaMsS/khV05E7OZt20BQ9h1cMR0bfoqMvY7pqUDh6sPKI8le3oKFVvbJ/2
RTxIyF+07bhKRx6vyaY2l/BQkV52hN2Yjsx23VN8aImHvtCABlego95kLWO9
23gQv3V0VnsnHYVTArIDXuGBLjLSNcxJR1/Sp4dl3+KhvD8KeW+mo1yXZce2
IDx8yGTfdWd5EmmwS5lMf8AD0Tv3rHoHZq1k2d4UPLgcXoqdfjyJaITneSdq
8cCadP2WhPMkSl/V2mCLw0P47lZFK/tJtGFa0P5FAx4qN8S3fNGfREEB2zRz
WrD23eeW4kUnkWGq6FxsJ9beL9j4YjsNjdpcqV+mYc/3b0nIF09DTxbHm5Kn
sOdztqVWlNNQ4i6R0LOzeOi/rPxcLJmGKv6aX7ix+L/x6M1f9qCh2zrtdbob
CFDRL7E1W5iGqM7Tj57zEuDJyXU5UbtpqHP2+3svPgKciuzSfcVJQy+4pyTv
8xOg1vD1O/ulCbTS2VussZcAnwkUngMdE8guZmdGkAgBXgrjC7kaJ5DAwtdN
+mIE0PaKNlqpnkCKuTLFmyQI0HZMN7wnYwLN/GwfuipFgB9ZufzhzybQsQre
4U9HCRDO7l/x4sEEUuqp2KYgTwBTu6uWrncmUMArw0s5CgTo3scdo28+gfjt
VQVeKhNgINhZaMvRCbT9972h3pMESKSdr1sUm0A++gHH96sSwFZH+NqY4ASy
tnvvbgYEGGP9nkRgn0CzpXyvPqkRgPZAQdybSEWX/HTPsWoQIP/H1kanX1Rk
ffszO6smAZyPDt+40kJFffS3Hn8xz5LDMlXKqOhpKKh+O0+AEk0nnUO5VETm
i3iRp00Aj2QNKl8yFYUX8Jn56hDg7xXG4bl3VPTZ1N+PT5cAVRXtbUO+VJQH
at++Y/bkS7/b8ZiK7N4Xv/TXI8D6b2YFeQ5UdOb5Q8GfFwmAP3zUMPYKFZl7
jI866RPA9/XmmTeXqIhFymhlFTO7eoXCLaCiLMlb45sMCdAUH/LTTJGKolZ9
sz0xv1m+5a4pRUXXlJ5+oGLWszjLp3SAiqjuFxMMLhGAq1SgTISPiqqth2tz
MH/dMWu2YxsV3TbknmAxIkDIvZbFdRuoSEL2taAOZqPW5Cj6AgXdOTR37g3m
XZJPT/TTKKjxac9VPOZOP+M/rSQKyj+dZz2DOXLo8NOqbgoKE2xS5TcmgMXp
jfuyvlJQ+c47dEXMgjF9NZENFOSqUXv7POa+xZKrL6soSDGjI/US5niTdywP
PlFQZmvkByPM1wodEuzSKaj345T8BcwHuU+fMYqloMvc0c4qmANlBx7dCqUg
8kedIEHMC/o+hd4vKchfY1/o//pzzfkgNfwpBV2RinNEmFuC8SI5LhQksVWB
yxuz0ie7KzgHCmolCd5RxBzfsTG86zIFsT919ejHxodjJq1t0oCCFBYkD3pi
vr/j/KaNmhRkfp3r6nbMffJkEDyJtVcj7I3ExlvLKMBD7igF2e74os+L+dN9
6QItMQraQXIa9zUgwN6w1nErAQpSbRroJGPz+bLYSdiNm4LOOh3kVsc8/ZPL
MoCNgm4HbPEOxuKhYZdhS+kkGfk+MG9hx+JFVnmGtY1ERkkBEa/ksHiKMn1/
itRFRvTwI2r6FwhwN+JXLjeejEZ55K46YPHZXfZgVKycjFT8eFKssfhV79ot
dCqXjEx/ySfrahFg9x7L4JsRZHQwWCRgPbYefFT+ffF6S0a11dP6TeoEoFrE
rA/3IaPzu1YCfM8SoO5jv2u9IxmVchYI/DpNgFt7bU0E1Mjo8h2U1auCre9T
bO+OKpFRTf46cThOAFWr1M+aUmT0K2GXXyi2fnfEjR27z0tGf/btSNqJre8q
oTsCrePjKFQ0UN5dmgBiapxGQ33jaL6CN9NRkgBBNnlvFr+Po9W5y3bG2H5i
lzi1LFozjuoGVU2WDxKAU8Sd6BkyjkZb5BuT92DrUZ2PP8x/HJ3KV90mtZsA
g7ZlBllPxtERlZqxRGy/K01Zqv9tP45iIrk2OXATwFrcK0X2xDjiIpjqqrJh
8yX58tbg0BgyfX7TZQcVD/u/WZdLdY2hjTA5UjqGhzcPjrO7tY2hgvyu2QvD
eLDDk1M2lY8h44/3XbX68LDbSndAOnAMFWW0bPJpx8MLVjFZ9+djSNAk0zi9
GQ9TmSueyGMMyVEDbGo+46GJkSdoeH0MldYIQznCw9NgHrMHx8bQqyD/9pFc
PJCVKam1h8eQh3Vfq38mHkz6cHObD46hXB/OCL5UPMhKuYVGbxtDOaIPuDbE
4GEQ/7utbnAUNYVaTLK9xoPWQvS5rW9HEUmbXTzGGg/FsW7vjX1GkXrVZ8oe
7DwUPqc3FPsAa+9goOFrjIe/waveR6+NIgHL9fv2a+MhV+palYnyKLInuQxc
k8PDzqvi8gkDIyj+5QletlUcPGNj8SH/GkFzskoOxxZwQMvq/CrfMoLST3kH
Gk/h4PPCK6eGkhG0nzMl7MIQDh6FUDMoASNoNlFiTLwBB/2EAiElpRF0Svw6
q60/Dp5cWlQ/Jj2Cej/fNs/ywsHugdM3VYRH0M/9HTZ/sPxC/197gSrnCMqx
baxecsBBrRztjObIMJrkT24R1sRBfJyknVn4MLrxd6qOxoKDk4ddXlm8GUa3
6K7nSxn10FlRnnPZZxjh38cO2tHqgfuX1ry10zBqtf6per+nHp5tdfC/qTGM
5m+5cOsV1cO1h0kZj+ZJqJY9/U2xdT2sbKS0PqGSkMtPBdNq43qIei837TlI
Qg9477qmatdDR16dyvM2EuKOWToloFAPZ0f6mwNSSchPYpLNl60eRC4J0qJN
SMiqSdV7fWId1BKv88RdIKEzbcNzU+/r4LJTllLCGRIS6ZE2qPKvg/evVLxS
ZEhItyuzrd+xDlhrzbhzN5LQgerJ4UuKdTAsHSaHSobQO/PoV+41tSDpmUIb
yxpCkwryvN5YPuvUXpzJkzCEeD/cOXUpuhYWnH8J2wcMISFTwx+GD2uBo5Rv
xzbrIeT5+31NtGwtyKpFzVhsHkLRlDOoXwyBW0hm3ouVQXQ+cvGO3HINVAxV
3M6dGUSG3ybxsx01cNavZ2hd3yDyFvraUfWkBkyaBX+kfxpEr8O2Xt/wpRoe
G8cVzVsOojDaK3RerQpqU/PuCRkMIlQweuvv1ipgXUDS2hqDaN2S26n+35UQ
GEVMjpEdRE8jr7eL366E+P4DYepsg2jn1MVrfP4VMCwrZ+C0NIBG5+rulehU
gKTPmW0RkwMomf/CWWOuCigUue5L6RpAYfe1Al1Cy6HhZrJbSO4Acn94JFwh
sAy2VBYdrUoaQDxWSSy958tAfythYjhiAElzTRKOsZZBV+6w3fHnAyiGL+9Q
5/1SoM6ImRBNB5D1Wz4lEfUSkD2nzMOhO4BWqo8mds0Ug1u4Zpv8mQHkm7Po
gEsohpVjNzT8pQfQ9Yzs2m5GEWz3zFCSWTeAZhduTsu+LgS/EolGbgYRiRR/
rVI9UghLtDTzGSoR7X0Y/YD87RMMXk19UtZJRJVnml/7cH0CkwhRzo9tRDTg
XKTLl1kATV+T457iiWjhD59xpFoBfFJLqj+TT0SuHoE3Xe3zQeyRsJFoKhEt
v4oxfjSSB1GfEoY3RRORgOIYMY2RCz4H49lb/Yloz28fvNdyNsxb7o/Ke0pE
7PzVZvvpWXDrfaxUiCsR3aKFiBz+lQmGbDF6pleJKGNLZlqaWzo0nBIkHjcm
Iusjd3M9JNNAxf2js6AOEe2KEN2+90sK5Obu2bB6moiyew71cOgmg/Bo5PsB
JSLiDHl4lJiXCOH7+cXw0kT0zHOidf9YPHCYRZSmChNR0KGaQ1ytMeAZxHf+
1W4iIv+bM5nYFwkzjeHdtzmJqPlyYsCwdig4rNvlqMdKRHKB3/MP7/eFElfJ
vzaz/Wv3K7EkiX3iRKb9jMXVqM1MOzWI2haUMm2iLOLvnsS0OP+BVpbHTHO/
3k8n2DO9sLR3R4Ah041/9pjzSjJ9I37n8KGuvjVnirMvGyozLa00KZ0y82fN
9jJeXuW9TMeJcXW0fmaah+/Ig/mPTDMYTnWa6kzXl9OMye971mx2iuZ5RKl7
zc/VJ76We/xeM69RbpA5X8eaP80TuBpFmtac0jP8dvxFzZqvGAgW9VxPXnM5
x+Of9W5J8P+tOLhu3zMztOaD9MpFlfovaz6f1NWqZ9ax5nO6PBvmin+v+d3V
396ypX/W7Ec9CSMtTHs+TFz+OMi0U+idR5s4e9es93nD/T5bpjmPyDq84elb
c+DKS92xO/3M3w+gbYl9zrTnbqOmS5FMO8nt10R4pu3RCza3bqatLpBxknSm
s6jiavT1ROC61Pggx/UZiBdaCDVvIwI7oYm9tC8Ekh6+XU3ZTQSJhtiRx4cj
Yf/p2j7vg0Ro2KBAO3QoFj5unKm2lCGCzZ5Pe5XkE4CvVTRG6TgRInkrm715
kiA01OzJdnUi/Ej3qE/CJQOXRYAlVY8Iu0cldokZpMKmUTp/oi0RVvn8p9QE
MuB5zsHFJ3eJMBv8a9HVOhNWXU06TR8R4XTJfOCN91nAYKkK3xZEBIP6A6dJ
X3PA9TPNbSyKCER7GfmIP7kw+faAMS6FCPsNnUcievNgdI//joeVWH/v3zfM
HMiH6wPl05caiGDqO7L61agA+tOo32S+EeFKedBmZXwB/FYwDCKNEOFnN0Wl
I+ITfNbbu02fZwD2DZX5Suwvgp0yA7tcBAfAMC+VeP9+EVhvSxF6LzYA4nnx
oc2fi2CpWVqhU2UASmrY0udvFIP0+ZOW1tcHwNXc9YLHhxLwkGCx87kzAGHt
OjyX+0uAsAnvlPxgADj3/OHtFy0FqwYdn7GAAehp7KPM55ZC0FnLjHtFA7Ds
1WuR96kM/gjvLwypGQCJb9u1ftLL4ND6oaqixgHYymvhSD9cDvW1t74u/BmA
IWOJIrGUcpg79YjhzTaI7UOlrldfVoDFschzwSaDcGJ2o5epeBWk8l25WGg9
CN8HPWRHTatgZl7I/OetQcheTFT74l8Fb4rTHfm9BkFgVHzb++EqQHJloQlp
g1B24CZPRmQ1iBz+PVCwMAjO+Pj44JEauLf1I+X7+iHQlne3+7UNQTXFam5u
6xCocNVOxSggMMkcYVc5MARi6wfO13gjeCk+f6T+/BD4faeYoc21MHGA17Mj
aggOD5nzG4bUwrHHCc51yUPQ3mYTciSxFnx+HLbLzx2CczVKf/oKamGXv8aF
wPohiMpyCS7+Wguq1Ad7tMlD0Oh41954ax28K+kuqTtOAv0/v/ADj+ugm8sh
M/8sCX6nRTBEXtWByM2ZmDhdEnBw9/GcDa+DMoGtvk9tSMArKdO3Pb8OiN6n
Lh1/RQLbAnRq42AdHNWJn8zvJIGQ5TqfVKiHJ8nSQ3GDJEg7dFKxGcufGpbL
fgVSSRAacA6+YfmVRf63akeWYXiMlAt8bteDD++GNxISwyAdeFX8RVg9fO+3
k4h/MAyc4RyPzpHqYd/xaYF3zzBbt3KkTNTDjRBPLs+AYTDuNiwkz9fDP/UP
85Zxw5DeoKl/aDMORDIb8XyfhyElSiPukTQO3O5L2bzbNQI1++18E5xwsItj
ssrkwAhMCclZHcLyz7K4T7v3SY/AF5zo+g9Yfvqv6fjXbLURuDNxP0ckCAc+
B7SgyXEEdkux2nPn4yCwzXYvG24EOM5J9V+m4EDWVuJhS+sI2EXFJVyZxsG3
RcqP0M4RuBTw5IvmIg52irq+EaaNwIdzz3i6NuIh6vGzv8A/Cood5sRZITyk
SsR2Pbo7Ch8VjQaOG2D5fY2N4plHo5DuHM0/aoKH8UuiwZt9R0GWynjjfRkP
0l7ZWhFRoxDZTcV7OODh08+K0mLCKHZOD1T6PMGD0W3PHU+/joJ9TjNP+DM8
zLGcuaveMwqGPuK/w/3wcEz6i9h3+ijc/dWvbBOEhxqf32F0gTFg95mT3puE
B+vdH6dKxcbgeOyThrg0PKzLtdL1OjoGn+/TidzZeKzeHGbl1ByDBFnePagI
q3eOzLpKuYxBvXkX90UCHn7/4Ta0bxyDiuDFG6ZDeNAOsOu83zEGQn00q7AR
PFQdr7B6/mcMkKhHEWEcD/Hh12/H08dA81LEj+VJPNzQL3nRvXscDm0mK7f9
xUP3CseWceFxqJTZ/ThhBQ8Xcq4GM6THgcRng3dYR4CjHJtjd6qNw/e042Wt
GwmwhLMs1bs5DiO3W9XWbSeAo0v+qSuu4xDwWvyH0w6svhdiw99+Og57x7ez
fcXqx/qnuV9fBo/Dyw0Lr+9g9WaA8jpyffk4OOGndvFh9ejKsPG9b7hxYIzs
eXdQlAD33mfO97eOw8fg7KMi4gQwmrq0YXlgHNiKPI+tlyKAYFaqoDIHGdSy
7XbKyxEg0Pxv4rmdZCC0f0wflCcAC7v+IaN9ZHhqWzrqp0gAku2iorMcGaoe
ViXlHCOAyQ69Kq+TZGhYaVeVxervxrrEM4EaZHizuLcu7QQBcvZduJhlQYaJ
u1tL3FQJINQa/7PclgwC3rHnWoAAIY/nLBudyHBxz8V5PjUCuHfG3hj2wdpH
Gs4EYvW+asjUs/1ZZCi06ev9p0mA/NMa7DLFZGhOcFhc1iKA8GRU4ElEhsin
C4mz5wmw8YL6R/PvWH/Pbv9Rr4PV40sRB270kmEzTdEt6gIByOkTae6jZFBw
j/7toEuAdrYPRaF/yXByZB0PSY8AZ4ooKolsFKA8j1ofepEARddO1+VzUaBv
f8awsj4BxLaHaSJ+CjAeS3/uwByBxltbD1JgsoK18LoBATicVI3+HKZAYfFM
ERnzE8HQbqyGhpqLMZ0OhgSgNY1aL6ph7b/4H+rBbP3w5OimCxSQ3ylYqH6J
AJK2jT9pJhSgwfq92Zhn9IzwP20oMFLyVoTdiIDFI/FTlSMF9jn//G2G2U/E
MSHpAQVkcr6ox2LW51p499qHAjnWCg87MfMvPfd0fkuBXWnlPpuMCTBI4rpj
FkGBNzKdTlKYs9s/WkISBfYkjWurY3avENcWy6VAL99BEUPMkFJ4bFs59ntO
YZuMMbMHgfgsjgLT1YfX62LueNTM29NGge9FxUL/uw+LtjNlre+iQO3y97v/
uw+z1x+aTidRwCpu67//3YfJnrg78G6SAi2Wdd9qMS+K/m13X6KAL6fcsg/m
em7/mitsVHBjf/paBfObvzw56txU6LoV5zuKjYfJSOxHKQEqOHm7Lb3CLPRN
8jWPGBWAt3L2AGZyZYnHoiwVllu2eOdh41uYesaBeIIK2z2G0uQwazyxUM81
oMKF6odL/Nj8cDuMyIVdpoJcXegJT2w+uwxcDjxxoMJdaeq5Tmz+HcVfr5x/
SgVz+dqBO1h8KPHsmpB9SQWJkykvM7D4Wf2X0MMXSsVmK/pgDxZfIR3lZcPp
VPjqoX9VCIu/y9Xn0loKqbCjJXCngjYBRNO/hRXWUGGr4sDIKSxey56Ouzz7
QQXNu4EcClh8+9xws7nRT4Veo9d3hTQIoHNpnf5FMhWG//3ZveEcth9I8B/e
yzIBm3JjrbLOECB9R4oA65YJaNP+vc0ZWz/OK7IcFN4JsNBdEjt8mgCsP7RG
y6QmIMLKtfLlKSy+vDwSjEwn4MOZRvs2ZQLM3mQNOnFtAhx6Eq5qKRGg2ijI
U/jOBLSzVrOXK2DxJJluSfeZAH4q51vPo1h8/PzN+yZ3AlIFLpz5KEkAnJTy
axwbDSS2OyoICxDA6ohR0hQXDWo4QxNl+AmwIOdctX8PDb5eYb0iz0cAaZUs
2mMZGlwRsWwVxfa391r7LymY0sCb3UkpjwOLF7tNginpNMj/4thstoAHlpsi
it8/0UCpau9z6hx2Hjmq6a2rpsHBBctujxk8tLk+9r7yjQZHJdQePabhQdln
ksS7RAOHA02rEiQ8sMf9zvHTmQQ9De5ZiTY8JCbONhQZT8JkSXy5VjMeTqZu
Jw5enYRmNpPrNo14uJejwwP3J2Eb0cXlaT0euiqROyN6Er5O2o5al+AhszMN
btAm4bjhm9Od0XgQ21w1lqxFB3hy4lOsLR6mP8vcStSlg1zos9Oz1th55ZdA
iTOkg1T4FdOzV/BgwupPi7pMh9192uJtxnjwXTWYDbpHB4e/JS/DNfBAmhtd
fRJBh099UTMzYlh/B3fwGY/R4bOakwp1EAdOCX4RhhN06JCSEXHvw4GK9SK/
/jQd3smfIyx24aCjt09Q5x8dqN89ZGlfcbCuK0NYjXsK6Gbh1QE1OLBuB5nD
x6bASLjjYFQEDvZW3T7H9nIK5ud327NpYec//9KS09spaAh/3m90Bgdb3V/m
d4ZMQY5nHCP6JJZvHEkRyI6ZApaTwSx8R3HQndQ3ZVg4BcmVRhaf+HEQHmAQ
G983BSfo1ft8x+uB01KZcUJxGsai2WcCn9fDxjJCdorKNFwJPG47+aQelnca
XeM6PQ2pHNHHtNzrgdp2r3VQexq6tlSuDN6oh6YzmUmvrKdBM+lWapVuPfhL
7tX/HTANAruy9Zd564FlaX2Gy+A0nBptYf8QXwfWQ10zXqPT4JLy+KFnZB3U
tuSrvqVOw9SpunarkDrwjrP6kTY/Db1HOvk5XtTBqnrF6h+OGahTPhDJ4VAH
K++cTTTlZ+CwzpGUXKk6+CdK3CD4YgaWTUfVzPNq4TJXqd6hVzOwtf/5PcO0
WqhaeBupFDgD9OszNWfjauFJ84kjBhFY+335Hznf1cLfex8s/LJnQGo84566
Uy0sVeoV0H/MQJvFo1UJqVpgGFRbEURnQcgfby5yCoFPV16vqtQstPelgdsh
BJw2iZfLZGeB73lxYT4vArF7/hZZJ2YhRsgOPzJRA0aBBibBBrNwqG/3H52Y
GshvGta98nQW8p6rxXQzquHmWc5Tcz9m4YSAcPREVBXMNrFUOXXPwrELvSHn
XlSBt+GMylj/LCTnBhJ87lRBhE3nsR7yLJyV3L+cBVXQ4JWoUMcyB3xDQrqF
g5UgXKUk/VZ6DhIOz9lbHayEHoWrAqIv5mCIdPav2NtysF9U5PJ9NQc8cpdP
7HUtB3r11g3DgXPgqL7Omm5WDqyaFeTkyDmsXmVHUiLlIGPOWyGSNwcxGd6H
KGVl4P202Uykew6aW970ivWUgliDcvhB2XlYjPLKq1wphvzXnK+fK86DTIbR
a4P+YlC5OPx0SGUe9KpIpgWoGC52htglnZsHVT3ikWavYvAgTygctJwHThWJ
5QvLRdDMmfxd2G8ecu7/Gw2nFsI9U+7twn/mwfjkFxurkAK4ln4kSnRgHjZu
9lJycSwA40W9g4dG5qGDmm0oqVEAKh/fKsrS58GX6N3wdCEf2Po5LFRZGTDh
5DzuYJYPUfZsSRbSDGievHiXjS0X3pSKSFsdZYDyXhb1ocwc8GJXL7ZRYsDI
99KNkRdzwDbT5/ON0wz4Njt9wDosG47QVinuRgz46SBp9Y87C/BuSwqhTxhw
qyvGYKo8DUoa+GvCnzHgBOIV59BIgwy+45pRfgzoqP4ujdpTIbD8gXlCEAMO
+CTtu9aTAs84PgwmhzFg5byEKuNyCty3LLmdHsUALUUBb7eeZDBfnn2al8yA
t+5i9ONtSXBBb+emwgwGNG5bvjullgSqcfJBJbkMkIZiDeeCRBBRc0msLmPA
oKNjkahPAuwKCZaqq2bAv9fl9eaD8bB5KL8IX8+AB3vSDuqcjAfai8mG5hYG
jG1hjz5cFAMDPzn1278xIKeotP2tcjT8EJPp6vjFgJKYIxNOKVHQ8ED32q8e
Btz+9voUbjECyhsdKV1EBhTzrqtkO/IBsvnf3O8dxr6fs7je8lQYxN7KWiaS
GZAUEjIwtDsUgiub/EiTDJBMKD7MnxsEL7aSucZmsf737CvKzg8A9yubIymL
DGh6YOkV7/0CbuZKCE+uMKBaZESMW9oZLq9qZk1vWGDe7+g7KMyzM62W4Fe9
uI1phekUjWUepvnfk8xY9zJ97Pn+XfeFmTZxsfg+JM50iP5XXZwc01u3VZ3x
0WJ6xTdUmuU+06QHZ1j+NTGdaxmfNuOxuGbTU15ajdVLay6wuiOs8u/vmhc4
zm4oN15es+G3E0p7I1bWHCkseC9wbpXZny2sSmX/secM5e/Af3wNX+mvOM+0
tL1l3J//uCYjqk1ygWmSLP/hz0tMm/Cvm6H/x43rxsv2/GU6p6NM3ek/dr9v
dpn3H9Obyz4EXF9m+km8l8Hb/5j20oGv9D/uMFdO4lhhOvrvr4qC/5iTVOPd
8x97t6RqsK0ybRfj3mH2H3f6WkX4/MfaThpW2f9xlYmMyK//+P/+v7jm/wfd
gdk8
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 0.16666663046168165`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5592307845625*^9, 3.55929530115625*^9, 3.559310537625*^9,
   3.55992289334375*^9, 3.559968348921875*^9, 3.56015590009375*^9, 
  3.560682524296875*^9, 3.560690064609375*^9, 3.5607543393125*^9, 
  3.56075735975*^9, 3.560757997015625*^9, 3.560762690859375*^9, 
  3.560765001875*^9, 3.56078825534375*^9, 3.561132580515625*^9, 
  3.56172842353125*^9, 3.56178997021875*^9, 3.561982719765625*^9, 
  3.562046488171875*^9, 3.562069696484375*^9, 3.562354258015625*^9, 
  3.562354816265625*^9, 3.562466005565506*^9, 3.562961820109375*^9, 
  3.563086812546875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Frac", "[", 
  RowBox[{"1", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.558950820359375*^9, 3.55895083665625*^9}}],

Cell[BoxData[
 FractionBox["1", "3"]], "Output",
 CellChangeTimes->{{3.558950829671875*^9, 3.55895083746875*^9}, 
   3.559050276328125*^9, 3.5591413686875*^9, 3.55929530121875*^9, 
   3.55931053765625*^9, 3.5599228934375*^9, 3.559968348953125*^9, 
   3.56015590021875*^9, 3.560682524375*^9, 3.560690064640625*^9, 
   3.56075433934375*^9, 3.560757359796875*^9, 3.5607579970625*^9, 
   3.560762690890625*^9, 3.56076500190625*^9, 3.560788255375*^9, 
   3.561132580546875*^9, 3.561728423546875*^9, 3.561789970234375*^9, 
   3.561982719796875*^9, 3.5620464881875*^9, 3.5620696965*^9, 
   3.56235425803125*^9, 3.562354816296875*^9, 3.562466005581131*^9, 
   3.562961820125*^9, 3.5630868125625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"AppEffd", "[", 
   RowBox[{"R_", ",", "\[Beta]_", ",", "rapp_", ",", "del_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"del", "\[Equal]", "0"}], ",", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"MoffM2", "[", 
        RowBox[{"r", ",", "R", ",", "\[Beta]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "rapp"}], "}"}]}], "]"}], ",", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"2", " ", "Pi", " ", "r", " ", 
       RowBox[{"Frac", "[", 
        RowBox[{"r", ",", "rapp", ",", "del"}], "]"}], 
       RowBox[{"MoffM2", "[", 
        RowBox[{"r", ",", "R", ",", "\[Beta]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.558950931328125*^9, 3.55895093615625*^9}, {
   3.558950970765625*^9, 3.5589510048125*^9}, {3.558951048515625*^9, 
   3.558951128765625*^9}, {3.5589511605*^9, 3.558951210484375*^9}, {
   3.55895125078125*^9, 3.558951275984375*^9}, {3.558951440640625*^9, 
   3.558951440828125*^9}, {3.55895173165625*^9, 3.558951734359375*^9}, {
   3.558951830453125*^9, 3.558951851015625*^9}, {3.55923221140625*^9, 
   3.55923224178125*^9}, {3.55923257771875*^9, 3.559232578921875*^9}, {
   3.55992290721875*^9, 3.55992303378125*^9}, {3.559923327578125*^9, 
   3.5599233314375*^9}, 3.559964292734375*^9, {3.560682541921875*^9, 
   3.560682595890625*^9}, {3.5606826428125*^9, 3.560682644484375*^9}, {
   3.56079310865625*^9, 3.560793118265625*^9}, {3.56079314934375*^9, 
   3.5607931569375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffd", "[", 
  RowBox[{"1", ",", "3.5", ",", "1", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.558950274171875*^9, 3.558950277515625*^9}, {
   3.558950890859375*^9, 3.55895089115625*^9}, {3.5589512166875*^9, 
   3.5589512375625*^9}, {3.55895128009375*^9, 3.558951304671875*^9}, {
   3.559923051796875*^9, 3.559923064921875*^9}, {3.55992321121875*^9, 
   3.5599232226875*^9}, {3.559923340984375*^9, 3.559923342578125*^9}, 
   3.55996429275*^9, {3.560682614328125*^9, 3.560682627984375*^9}, {
   3.56068275196875*^9, 3.5606827531875*^9}, {3.560682790140625*^9, 
   3.560682797046875*^9}}],

Cell[BoxData["0.7211451990730667`"], "Output",
 CellChangeTimes->{{3.560682616515625*^9, 3.560682648390625*^9}, 
   3.560682798078125*^9, 3.5606900646875*^9, 3.560754339359375*^9, 
   3.56075735984375*^9, 3.560757997140625*^9, 3.56076269096875*^9, 
   3.56076500196875*^9, 3.560788255453125*^9, 3.561132580625*^9, 
   3.561728423578125*^9, 3.561789970265625*^9, 3.561982719828125*^9, 
   3.562046488203125*^9, 3.562069696546875*^9, 3.562354258046875*^9, 
   3.562354816328125*^9, 3.562466005596756*^9, 3.562961820171875*^9, 
   3.563086812578125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"AppEffd", "[", 
    RowBox[{"1", ",", "3.5", ",", "1", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951336171875*^9, 3.55895136565625*^9}, {
   3.558951452828125*^9, 3.558951455765625*^9}, {3.55895192559375*^9, 
   3.55895192909375*^9}, {3.55923046325*^9, 3.5592304640625*^9}, {
   3.55992362784375*^9, 3.559923636390625*^9}, 3.55996429275*^9, {
   3.5606826840625*^9, 3.560682686046875*^9}, {3.560682760125*^9, 
   3.56068276125*^9}, {3.560682801609375*^9, 3.56068286659375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-1.9999997894736843`, 0.03448045702511982}, {-1.797514863394739,
      0.059033338723078976`}, {-1.5779980005921108`, 
     0.10438919546205984`}, {-1.3730281484342206`, 
     0.17161364522604267`}, {-1.1720789911315945`, 
     0.2638711673302961}, {-0.9540978971052854, 
     0.38595049509106816`}, {-0.7506638137237142, 
     0.5028186775786023}, {-0.5301977936184599, 
     0.6103000463690024}, {-0.3137524683684698, 
     0.6824471831644405}, {-0.11185415376321774`, 0.7162554929067565}, {
     0.10707609756571745`, 0.7166647170325438}, {0.3114593382499147, 
     0.683013585621383}, {0.5118218840788477, 0.6178246383402424}, {
     0.7292163666314637, 0.5144604531495927}, {0.9320638385393418, 
     0.39885438652991}, {1.151943247170903, 0.2744098059738044}, {
     1.3678019609472, 0.17368642760377978`}, {1.569113664078759, 
     0.1067579034412914}, {1.7874573039340012`, 0.06062323731320857}, {
     1.9912539331445054`, 0.03529058992610894}, {1.9999997894736843`, 
     0.03448045702511982}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 0.7166647170325438}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.560682787296875*^9, {3.560682849296875*^9, 3.560682870796875*^9}, 
   3.56069006971875*^9, 3.5607543436875*^9, 3.560757363375*^9, 
   3.560758000578125*^9, 3.560762694375*^9, 3.560765005390625*^9, 
   3.56078825875*^9, 3.561132584703125*^9, 3.56172842575*^9, 
   3.561789972015625*^9, 3.561982721546875*^9, 3.562046490046875*^9, 
   3.5620696983125*^9, 3.56235425996875*^9, 3.562354818015625*^9, 
   3.562466007456131*^9, 3.562961821875*^9, 3.563086814515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"AppEffd", "[", 
    RowBox[{".5", ",", "3.5", ",", "1", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951336171875*^9, 3.55895136565625*^9}, {
   3.558951452828125*^9, 3.558951455765625*^9}, {3.55895192559375*^9, 
   3.55895192909375*^9}, {3.55923046325*^9, 3.5592304640625*^9}, {
   3.55992362784375*^9, 3.559923636390625*^9}, 3.55996429275*^9, {
   3.5606826840625*^9, 3.560682686046875*^9}, {3.560682760125*^9, 
   3.56068276125*^9}, {3.560682801609375*^9, 3.560682888828125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-1.9999997894736843`, 
     0.004414314108949354}, {-1.797514863394739, 
     0.010762058662526027`}, {-1.5779980005921108`, 
     0.031084767806067518`}, {-1.3730281484342206`, 
     0.0878213088342134}, {-1.1720789911315945`, 
     0.2280160944701097}, {-0.9540978971052854, 
     0.4948939803498167}, {-0.7506638137237142, 
     0.7362834709889096}, {-0.5301977936184599, 
     0.8826293632198606}, {-0.3137524683684698, 
     0.9403953743449704}, {-0.11185415376321774`, 0.9588605380328612}, {
     0.10707609756571745`, 0.959056071371757}, {0.3114593382499147, 
     0.9407447019165796}, {0.5118218840788477, 0.8900048986172701}, {
     0.7292163666314637, 0.756006318584013}, {0.9320638385393418, 
     0.5243023976475029}, {1.151943247170903, 0.24842541569061963`}, {
     1.3678019609472, 0.09015918584609862}, {1.569113664078759, 
     0.032501910729433786`}, {1.7874573039340012`, 0.011275093692369217`}, {
     1.9912539331445054`, 0.004579148439996742}, {1.9999997894736843`, 
     0.004414314108949354}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 0.959056071371757}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560682893328125*^9, 3.5606900716875*^9, 
  3.5607543454375*^9, 3.560757366859375*^9, 3.56075800403125*^9, 
  3.560762697734375*^9, 3.56076500878125*^9, 3.56078826203125*^9, 
  3.5611325883125*^9, 3.561728427578125*^9, 3.561789973609375*^9, 
  3.56198272315625*^9, 3.562046491640625*^9, 3.562069699921875*^9, 
  3.56235426153125*^9, 3.562354819578125*^9, 3.562466009003006*^9, 
  3.5629618234375*^9, 3.563086816140625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"AppEffd", "[", 
    RowBox[{"2", ",", "3.5", ",", "1", ",", "del"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.558951336171875*^9, 3.55895136565625*^9}, {
   3.558951452828125*^9, 3.558951455765625*^9}, {3.55895192559375*^9, 
   3.55895192909375*^9}, {3.55923046325*^9, 3.5592304640625*^9}, {
   3.55992362784375*^9, 3.559923636390625*^9}, 3.55996429275*^9, {
   3.5606826840625*^9, 3.560682686046875*^9}, {3.560682760125*^9, 
   3.56068276125*^9}, {3.560682801609375*^9, 3.56068289365625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{-1.9999997894736843`, 0.07838313605436473}, {-1.797514863394739,
      0.10038552394607535`}, {-1.5779980005921108`, 
     0.12884603782585655`}, {-1.3730281484342206`, 
     0.15922552035237802`}, {-1.1720789911315945`, 
     0.19143270787261008`}, {-0.9540978971052854, 
     0.22704237840628444`}, {-0.7506638137237142, 
     0.2584510175958696}, {-0.5301977936184599, 
     0.28748008042701}, {-0.3137524683684698, 
     0.3080761056566798}, {-0.11185415376321774`, 0.31828967690359017`}, {
     0.10707609756571745`, 0.31841614148370967`}, {0.3114593382499147, 
     0.30824370445169813`}, {0.5118218840788477, 0.2895697245778645}, {
     0.7292163666314637, 0.26155198045771216`}, {0.9320638385393418, 
     0.23057707253209186`}, {1.151943247170903, 0.1947297574194872}, {
     1.3678019609472, 0.16003909854719828`}, {1.569113664078759, 
     0.13009297043543414`}, {1.7874573039340012`, 0.10158640930775248`}, {
     1.9912539331445054`, 0.07924821421991493}, {1.9999997894736843`, 
     0.07838313605436473}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.1},
  PlotRange->{{-2, 2}, {0.07838313605436473, 0.31841614148370967`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560682900140625*^9, 3.560690073734375*^9, 
  3.560754347296875*^9, 3.5607573705625*^9, 3.56075800775*^9, 
  3.560762701375*^9, 3.560765012546875*^9, 3.560788265609375*^9, 
  3.561132592765625*^9, 3.561728429453125*^9, 3.56178997534375*^9, 
  3.5619827249375*^9, 3.56204649334375*^9, 3.562069701671875*^9, 
  3.562354263234375*^9, 3.56235482128125*^9, 3.562466010690506*^9, 
  3.562961825109375*^9, 3.56308681790625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"AppEffd", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"10", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"10", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}], ",", 
     RowBox[{"AppEffd", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"15", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"15", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}], ",", 
     RowBox[{"AppEffd", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"20", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"20", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}], ",", 
     RowBox[{"AppEffd", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"25", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"25", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}], ",", 
     RowBox[{"AppEffd", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"MMEG2", "[", 
         RowBox[{
          RowBox[{"Rsee", "[", 
           RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{"Rrmsfix", "^", "2"}], "+", 
             RowBox[{"30", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{"BetaMEG0", "[", 
        RowBox[{
         RowBox[{"Rsee", "[", 
          RowBox[{"850", ",", "1"}], "]"}], ",", "Rgal", ",", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"Rrmsfix", "^", "2"}], "+", 
            RowBox[{"30", "^", "2"}]}], "]"}], "/", "56.73"}]}], "]"}], ",", 
       RowBox[{"1.8", "/", "2"}], ",", "del"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"del", ",", "0", ",", "0.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.561132611046875*^9, 3.561132711890625*^9}, {
  3.561132754125*^9, 3.561132773875*^9}, {3.56113283696875*^9, 
  3.561132838578125*^9}, {3.56113291584375*^9, 3.561132917453125*^9}, {
  3.561133022546875*^9, 3.561133105453125*^9}, {3.56235151378125*^9, 
  3.562351516625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk8FOgbAHA5albW1bWOITlaxbBbIR1PmyRHtYNEGKQIu+6VbHL8KBVl
S8MPhUG5BhGzjjKYSJgkuZmancsVtnQJ+8wf7+f9fP953s9zvVqng+zPSkpI
SNzDI75tzopeMics9zt71H+dcheBtIVqMEdFBzwTB9+LvSMnI7taZSdcDNrB
EZunrhN3Xm8/lBE7G8W27R6ouqtyCOZv5iSLrZNMLFzRtIZDbZXHxP5m453u
pXcMCpjLkmJPJvSxvKhkIMRcLZ5Enzzz6fEtFUcIXkU+KDbLQpXRmu0EPVYn
uifQxtr7Kj9ousBWe6qN2NmSnsW6+a5wZvP6ehGawI2nOelRIKGKrSZ2/Zve
7lZHT4gltAUJ0cG/nrFxo3qBxZavNQL0mNEVixSVMyCZ94MKH52W8wNT1/Us
/CMjZcJD2yiU7H2S7QNupG2W/6Br33XtmtX0g+EOkvlb9G8UStUVL39o3Cu3
+Q16C3uWtDk/AD6E6n0eR9+gK/9I1gsEdX2lmFG0JbGgYMI3CLhFbw1H0Jfa
MhWbHYOhYuodewi908QgxYUaAst1TcJ+dO6G45evqYRDf4R5eA/6z+50llN9
OGyTm3/ERjslvpHUdv0D6r15wi603EJITEN2BKi6xOl0oCP70iKnNS+Ah0va
ZybaIXms9m/mBTBeMu58giYd0ltI8IoCs9OyqY3iflYzQoj5f8K5oLA5Bpp8
e9j/mN4lkL+lIVeONrDVLlZtvwTX9+QFl4rrLfWbUOAbA6sLPduL0B51yw+b
HGPhJOOObT56g34qyZkaB2f7BsvT0XGE6q1XVRLAuK3lTTR6m9VfSVXBCaDB
eEqMQvcmBk2MtCeAKTPLJkI8P1IGpaSIRGCqNIcFotuWCkh9vZdBmjsnRRHn
+566SzP5KhDieWrm6Jqf/qAe+ecqaL78wWkXmhLs8CnE/Boc37E51hhdMaNQ
xxJdg1tGRfl6aHtR0l5/y2Q4t5T9ozI6YyzKomb5BixmqGwTuIngF3WXgvET
N6Fk+pLXG/TkKVMZAv0m7DvKSBpGa0xf8KYbpoL3jrz7bHSQn4muxGgqcOLb
TWrRymcqigrNbkG9wohhPNrZJa9ibj4NLBLHpr5Hz444ytJU74BXmX7+avRl
CuGsg8UdSIx1s1txFUG1d5BqbdodkCFFhM+h5QP3Jf5pSoW51Atqvein8UOn
VkenwyY5JusW+ucypdXqhEzocz2S8B26g/TUs9s4ExZ/8ouUQHs+jGy45JIJ
yoXBlE+nRJBSywl+W5IJjR47JPhoEZM+cv9oFuyWTb7ZhL732vrhT7ez4Y7P
F41Q9NqVODcrjRxYec0q6XLBevmdpBgczoFvpeuUW9A6fQaeSoE5sMrqdQAD
vb94wHvkcQ60dFR+zEPXFVNrGKRcUJt/5heBnnGYbrRl58L7vdFP1dEnitI7
w76ngdKpeXsPZ9xv93g7Hy0a6GelExzQXOXfu5130YCTXFl5GB0UffDFPnca
3IgxHzREX7Wf6V1Dp4HoRnnC4kkRPP52cDjLLh/sGjc6pKF1ye9ErdcL4F4g
92mDkwhUY6zMffMKoFPyxf/L0Ir03OuyjAJw2trhfhf9leBAInMLgE0U1FxC
9zAZYeNmhbBc2HL/ADrKOG75M78QMo/LXG8+IQK2wvr1pAMPIPdYiTvDUQTn
2bsh40MxzBa67g6zx/6RavgdhBLoC41z9kIXpBgnL6qXwKnjrX7H0S/ttg5R
LEtgZkfW6e3o7Z3rw3SpJVB3O4vOJYuA0z57v8q0FALmx4qOoa2aC+W7o8qA
s8d7p/qvItj0SGl81aoKKLtzICflKP5XXIuuF3urIMz/CvGQlQha/O+quUw/
gqSuWknVAyJY0NunQP+dAdoDFc5JZiKQ/FKqqKZbD/oz/n+7GonAZMWz1qG8
EXbdUBzl6oqgK2Enu21bE9hu+jLZpCYCzdSpL8XvmHAufzqhS0EEU58446+N
W+Dm68BPTCnMb7LhufyNVpjVuiJRtyAEeeKDWR6PBfWuF8kfBUJI9qvxydVp
g2dyftLkQSF8PFDKOxfTDvRK95HIdiGE/8x6tLH1GVg3x8QO1QqBU866/lLr
OSiJjsSO5Ath0b8vSz+qE4RK/dZmqULY/suaZZ+GLvB32rgkFS0EK5qW78NN
bHi/LmvLHl8hnCd6bHnr9gI+mEbKLpGFYDB9Yu3A0R5wivhfAHmvENYpzBFY
X3tAptLae0xbCNJNWRXa2S/hFXXaTF9OCAE7G4a+s+2Ftc6SfvHzAii1Pp37
5GMv+Bru+ezRL4CFKVVFAfUVPLgskNnZKIAaByuptEN9kPuL02HuPQHEHEnM
eSToA6mBxbP58QLQGrMZzE98DR1yLjQtHwGYmyakqfzcDzrFkjTrwwJw03jx
ZdWrfhhYU61YvxXjP0/hBscNQFizyga6jAAypCnh9jqDcMaAHSrD58O68Rqa
JGsQZg0fS+1i8UEmOs5xd8gQXDTO6K7L4YNEMaWCqzwMPO7c3NBFPoRmVqQo
twxDxZtzPduc+PB4exJBKXAElKOZt2yN+KBkE2oQLz8KCbJOvftl+TBq2PPq
QuMoXPNf+dfsLQ8q74EOjzIGfjmJzC31PHCvMFEiLo/B8DeJ5xtv8yA2MS9u
tGQcbspGzkz58oAuImbJ23FgjP9ykr+fB2QlebP2rxwo1yj7l6bEg2sykmqj
aLNo6ei7aNaXhaU5dBLXZU0G2oQ71qq6yIHo5kW1FLRqNf14IJrXo2Z5Hs11
POq74RsHvEy7qbbo8IxkqvcSB0KNFkw/KOL7ybEXItHS/u+a36EFseFuKeiM
Up7tBNrZz20LA91g8cxjHL3P3KBcdpkDe54FXHmGXj3a+fQhmqat05+Nhp6m
ojb0BHvGIx0dyaq+PoK2j3s08Rd6siyLLLPCgZBFs6XLaHZ0wJgz2sJSQycE
vSbUg/k7Ol2/hx6APuDjkB+PVtgQY+qDrjq2x68MfXlVn40reuqgkV0z+qpk
VN8JtI6ptlE/ukGWSPkVTdm+SXkKTVR9LLRBp2uuXVhBVxufCrFE/wd3d+kW

     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4FNwXB3C0abOVylgmGfSWpF7Roo4siaSfrYiERJSshVQiKkKbhofJ
MEYxhZCREDIp2ZeUbaaYBdlaRq8s/c78cZ/7fP66z/ecc+9zVd39bE5LiImJ
peMS7Ranh9qqh033uX5Q9/34RAALjQn+HAUSKBYc9RT5X2oKpVhBF2Q6h61F
5iqRIkM09oHJLs5WkQ81fSp6pGACLLaemMikeOXsv0RzyGBNvulEz1qcSnbT
sILhkRWhIo9Ed7LcyNbw2vo2UeRjHr8r7yvYgd702bIONMuYUFpLOQoXv+ab
iqyjtvf5L6Ij0JfZsdrRFAnXXPUsJxgKdtohsuRAFO2ohgtcXP82pQ396kt7
U62dK1xdeW+8Fe3/Pw8LZ7Ib7Dao0hO5f+tN4wQFD2CdNEpvRidR11WrO52G
dfbJlU1oC2mGwWuKJ2gnWLU0opnjjTsmiN7AqRus/4A+5+JSdNPNB0j1NUX1
6A3NE9rrs85ChLRE4nt0Yp7cRmuN87DYJ1exDm2qTKcPe/mBWIRMMwt9tS5V
psbOH/K7uwNr0bp6WgmO5AD44/bgQTU6Q/7IjTiFYPjTkLntFTq8KZl19FUw
bFRSDHmJPhrzRULN6QIQmVP5TPQKYUBEOeUivK/vFBahQzuTQkeJYZAdqfWF
gbaN72e+rA4DyraXL3PQ2iYawmi3S5Cg8/j6Y1E/i0sDlLPCwUEldzITbf2g
x8dK4yqQWiw0U9Bah9RyCe+uQtCK4fsPRfVecE7A94qA1dThyfvok2XzhVV2
16D1nWx0Alr+n7vaDuRIeGI4vzgKHSlZrBmrEA2JjIMRZ9CbzO7dKvKPBpnA
xDoPdHuM33Dvu2hwSOqYcxXNzwKtp9oXY2DVhJOBI7pujq7d2X4DVDaenj4o
yvuTvIMYHwtsOacgdXTJtgvkg4OxwDFJfrUe7eJv+ztgdxwojbZ/V0QXjEmX
sYbioCXzoI4c2mboloGPaTwUcraMzT0WQEr/JeOS+USgen31bEfvV3Kks+3v
QEWPfH4jeuS4/iLJvDvQPmjOq0OrjIadyttyFyRqnquVo/289dTF+u6CuKzn
PA0t51GQk73zPoQTTS77oR0cMwsmvyfBU9/nobPZApjotVtGIzyEBt5PYyH6
hovkaVvjh9C11VR8HF18yo/ATHoIV4xlbThoqfN7Y8L1yXC/4IhlDfptVPfx
xVeS4Ve/V1YUevsz2cVKkqlQdk+87Q9dAPXab12bdFLB3eRX/3e0a2Fo+VXH
VJgiCfuG0AlMjv9XRipsuaxa2IUeqs7rfXw4DQx6SEWF6PSP5oXbHlCAROxe
cxq9/G+ks5kKFZSJ0mdrsrBe3sdctA5QQYWbOcFEkzq1XGXPU0FjtMnzGXpf
7qdTvZVU0Ov4rpWMLssll5RqZ8DLk97rzqHHbEcrDjVnACGJcG4V2j4nuSFo
JQ22e1MXO9Dwfp+IsvRUpcEumhv7EHpAzrfJYQcNjMiVOYD2u2LUsvcEDShV
RvKa6FibsfYleTRgxUYdFmYKoHLWqCfNMgvs03t330GrW48P1d6mA61FdmlZ
hgAIEWa7vTLpoN9kv4SBlsnLuL2slA6uS7uEqeg/krba1gN00LS/nXUZ3Vpd
GsTemQ3XvtbvB/Qlncj5/3jZQFCkxNZQBdAsvXq1tuETuLGp0vZVugBCmndB
yq9c6MvRvnmZgv3TLuHVSzLggPiPzz5oeoJO/IwSA16/nlFyRLdZana7mDIg
PHIgfAd6c8PqIHUyA+I75pLG0gTAeTfxuEj/KSzUCNB1QpvVZEs1XXoGD4JC
NmqlCmDtC1m2uHgBLAmy76Yn43s1YNzYYlAEiyjcVN97Anjj80jRcfQF+P2W
r3WIE4BQY690nm8p7BJsXM2OEoDE9FMZRfVXkDk1tqY5TAB6f12ZtvkV4Hlm
YVyQvwAao3Wb6zZVwYI0y+8BngIg3v02nTteDSFTpVJPjgvg228O+6POGwhd
20N/a4X5Rso/SCXWwiYVrzOThphf+ckEl8sCZzPTGY/tAoj3LvHMINXBEjUZ
7//UBDBl+JR7JuIdPGK+aTu1SgDB21kv1tS+hzJ3fuLSBZg/n3W7TfUDpO/J
OnNikg8zPp1p/1xqgH+PhUjJ9fNh8/4l857ljaB1kdam94EPZjRVr8K1zWAl
kGR2veBDiPLJDV+dWyCyLDxaIoMPWqP2yz8dbgWxMU1mXRwfVklPSrL+tIL5
wJTbx0A+LKxKK1CjtMFx15v+dCc+nNUt7156qB0uS7n7kPfz4am5e8brqXbY
Ey7QlNfkg/AbQYZP7gB+4pPfsSv5UGJrtiDJpBOalnI9fkzyIOJgDPUFvxM0
fg71nvvIA9V+i89ZMR+hTz9M4lkZD3brRycpbO8Cb3aEY1EqD5xVWqbFO7pA
VTzv0/xlHgg/JAz4R36C7vpZyrgTD1IWugTbkD5DyX72S0MDHqxil9AkWJ/B
sWLKOVCJB4uuRNrtCuiGRZs9DqhMc0Es16VgQK4HCmWKgl0/cSEwtSBB7k0P
WClMj8wUcqFy8y1J2fO9kCvxUCownguyFoFaUVJ9MEewkS4+w4W+La0dYRV9
0GltsHLjfi48TwcS16UfeAfUK64rcuFEgZ6s8nw//Oj2rvguHIRrMZmRfQw2
MMoe2wY2DkLekHKalCUHzjK3ZS/PHgRrWamd7/5w4NzruHFK2CDELZJQ7EMz
F8wXJqNZ08K5SfR40vkL99F6A/21hBkObE8zm72JJhTnHTmP3qPfvTQIPWB3
2Et+lgNiBZdI5ujglHjyqTkOrGQwjwlD8fz4a2GhaJZ/B2ESzb8W7JyApl4f
6x9BO3g7byhFD+Cn4At6726t/GXzHMjRtfZvQC/ua3hbiOY07ruViYbWqpw6
9PJjOoco6FBW8e1edPgWolQyeuRZmvWivxwwqPr1IB7dfOVsvwP65MUIagh6
SeDJal/0D3cn90C0oadtVhS6N01X3RddZLXH+xm6/Aeb4Y7+ZrTVsgb9XOa5
7wk0SV9taxdaLPyqjgPaZfNauW/o4m0WP23QycTlwr/o97qrmIfR/wfweBBM

     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk41OsbBnBRzFHZSjUiZOkXkjpoo6eyLx1ZM8VkCVF2lZyfNVuWtqMh
yZ4yTJNlqNSxDSrZRbJMjZnvUVQqUg46z/zxXu/1+fN+7ud9lT0C7byEhYSE
cvEIbkuviZ6G9yb7f1ydjW+rJGC5kVwQh6wKIhIuUQL/npeVU0XWBfMfV/wE
5smrxp5X3w8DNtcsBLbqGKy8TTaGhrVuGwVWTVO480vRArabLXBa0QuWnpnu
6n+AxT9emQJ/iO9nu9NsYf9szkGBj56ce3qd7AB2wQVjLWi2kVxtc44TdB0P
DRBYR8XwwYwiBZaqZb6w0TnCbqVqRcfBIDLaW2ASN67QSZ0K09WPOpvRj9/2
djQ7uEGSS+NWgYOOnLR0obnDuTDa+Sb06PYko3TySXCfuzfZgM7I29CgdtwL
YjwJaYEtJekGf+d4g96hLxr16JpPL/U+K/rCV0qg3lP0GSq1MsndD05ncNWf
oDd3ftZWKjoN5sYqK+vQlxky/7NVD4AQsdXlD9EmCsXF730CIUS+5lQtOqo1
W6rRIQhM6FobatC6+lrpFFowbNONs6lC58vaJKaQw2D5pi5FBvrPjky20+Mw
0FjHCylDOyW8FVY5fhaar7Q+LEWvmg2Orss5B+arZuRL0OH9GeFTihewny+m
uWj7tNGahw0XIDg8RCcHrW2sPhvvHgFR2xpXZQv6rKoNVij6E9Ybtd2+gbb9
643fH+pRMGlxTjkNrWWlUirXFgVWIicLLgnmLXLmH8InGmKcFNcmoU88Wqqo
d4iBxp6lnli07Nar2s60WEi2dWeeQ8eSqrZcIsfDQeOaaVe0htm15MqgeJD6
bul4DN2bEPh+uC0edmq40p0E+yOiVaZ9LgE4avNqNujWxWLt/t5E0G9Z5wmC
vN9oeoppl0C3YHRGHs3acZZmPn4Jhn6zdt+ApgbZzwXvTQGl5MM9a9DMj5KP
2BMpIK531lUcbTeRbOBnkgaRcxqs7xUEZI1GGLGWLsPRmnfJL9EH5SnFY45X
4NCRjMVW9Idju1aQGFfAgNTq0YjeNHXBk7HtKlD4JUssdKCvvprQyFXwH6H+
Pxctc5J5787u61ClUX7lDNqZUsCc/pIBN9y5sosPCPg87CBeKHcDzHwmyd/R
iVSSl73RDdj2NEjqM7rKM1CuJuMG+ARM979FSwQYJvy5iwb9Eey6ZnRL3NAx
0chMSFpsFkpC7yyXFpUnZcORF+anRNDPtVvcOnSyIYxB1M0zCXCrCK+LomRD
U/Yy4a/o9BpO0Dt6NhQy7nu9RU80MIZLDt+CH6eJlCfo3FcWFTv+yoEL6r3W
IeiVv2JdzDblQapZUm3ffZyX71GqlmkefBIWv/Icrdqv5SYdkAds4WuUevT+
0kHP4ad5MDpV1kZHPyqlsWq186Fx9zpSLPqj/dQTq858SDNsJmuiHe9ltoeu
LoS+o6yYswx8365x1t7KhVDr3/XQF82V8e9w1isEftOncVd0YOShLkPXQvhq
bbjGFH3J7mOvGKMQgjrlBmTRTxcOvbllXQTGGzlTleUEqNl+mmhOLQb7M+3U
8TIC5KLN9voUFAPzvG5/P1qKkZ8qXlsMR747721Fz5PstW25xZAY1f/6Hrq7
oTZ0bPcdGJbNpPqjI3Ril37w0Z6O6d/oBHRKrl2rfeAumJpLh8+UEnC+cw9k
zZSCempSwrO72J82i/+cRAetrdYna9HF6Tpp/8rTgR3fpleC7rHeMkQ1oYPN
Xe6Di2jN9rWhajQ6OCyVie1Hc9o+l1TuKoPEPbRdD0oIMGu8I9ERUQ77lNQK
Uu4QsL5aemzZMiacubk9d30R/ldco5ddBpVglR7pI3ObgCa/2xspU9UwFjiw
oE8jYFbdUJLhXwtSA7TQn5cJEP5ZJrVR7TEcF9+orptIgP4vtxr7+0+gPq0y
ZUskAS/jdTtbNerB+6PKzohQAhSvTv4s/dQApQ8669ecImByjjP2SqcJXtkl
tmS5YL4PdS8kLjeD8IrQEwY2mF/h7mcejw1xTErnjoMEpPmyvPNVW0F2cWHA
9HcCvh8o452KbgPTsbEgCxUCwnayq9c1PwPd3OOZiWsw/312ao/yCxjcU7Uh
ZRkB//r139oa0Q6kFvkjc5/4oHlQbMm77iVsOZEU0DfCB7NCZZ+K9Z3A0+mr
MH3Gh/MKJza/c+mC0k37RI2r+aA15bhy8HA3uMu7e7zL48MayWkSe74b5qV2
//4+mQ/L628xVXJ64KIdb5ARwofTunVDv1n1Av/Rr9KHFD6UWXjk//29F0r8
We7HDvBhdlJOiqD1wWNX6xtTW/jAsjcTyTDuB83YaPXsVXyINk/Iqyb6YfWr
UC37rzxQHrV8XZTwCqQoXmJDgzzYuys+g7xzADyc0k/YPeaBy6aun8v6BkDM
pL2blMuD2Rfp3KDYQQiZmEq4HsWDrOXUMDvV1zBwc7d+mBsP1oyxCoXZr8HR
xDfb8BAPVkTGOuwJHoIumFlgKfFAqJTK5Mq8gQ1EvWGtEA9CspnpMk1vwCq2
3cJydByeaiaTpAOGoVu8z6Pp0ThIW4ZoxUmMgNyygrMzmeMwsq2778KTEQgU
nejKDBmHB7mgyqOOAt87nSxpMw6uTH1phaVRaFpYdyxPcxxiEgpiR+hjMDGx
b/7i8nFgTCjckrDmQEW4ZJ4fhwu20hK72+Y5QE8wT7lcw4WUFcIbR9BSZVW3
L6HZP2cXp9F9PvIV8Wh97miz3L8cCLxLDEag5aoYNgFoA6Cq+aC5Dod9ZBc4
0Ng7VI/LD2FZaTTPRQ6spAl/m2ZxgZEWcyEc7UhXEp1CEzFhLunoHU4G5H/Q
zr4um2vRD8POwCjacK/WffElDoh0MFOfo0VH2lsq0JSpJpVCNHTX32tFP4t4
rH8bHc6uSh1GT+QzLbLQH8pv2a74xQGz6uuBl9GdkadHndFFc/vqItBiISca
/NF9RkqdZ9EHvO2L4tBNW4TfBaEr/9jnW47m1/wt6oOePLTduhGt5HGT7IFW
3aWyfQCtfCdYyxVN1VwvM4meijYDZ3Sm4srZX+iLX+Xs7NH/ARfJD4A=
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Gk4FGoUB3ClMqmrTKlMJDWUaFpsFTopUpGIikuD7JKluEXXmj0kaQhF
jGSda0+WyKRSlgwiy2QWJEu3S1KWe+bDed7n9/F/llf2kvtZ+6VCQkKPsATv
KfuRD3VfdA9XjqsIZUXxYdkxkgdbkgzOT37N0tHKaUmpJZIqQNYyGBaYJ0UO
ui5/GGaKFN4IrN/8sfihpA6ILr+XKjA5WjprUeYkBKhF2Ak8d8o20UbeEJKO
r9wq8GhIB9OGZgypqhtaM9EX7GZq4iVNoV+Y4Skw8xipoiH1PDwvYokIvHe7
1j9TMuaQASF3M9CpS61z5DItYFVhnZjABE5wxnl5KgTORwQ8Rj//3N7cYGoN
SZR+bjraw8julCXNBia0azQE7t8TfixG0g5kiLKNj9AJaZvq5CzswaeN/vMh
+tSaXM3aVAcgeZVuEbh84r3qpIwzVLhd101Bu1KpxeE2LvDw9a7jyehtLZOU
rZmXIXGly6EH6NgC4k5jeTdQPB09T0PrStPpXxzdgWjs/v4+2r8xeW29qQcU
HR2ITUCrqCnFmNM84cCU1cRddLrEmbAoSS/wqfi+MRp9szmRef65F5SfUb0V
hT4f+nnpdgtvMBoU5kSgV097BlSl/gU2Mzq+oegbHQk3xmR8wED2goQ/2iS6
v/xZnQ9Ylc9K/Y2m6MhPh9j4Qr7Jzk2+gnmWVHhKZ94EK4bCF2+08b1PLoby
/sDYWTPtilbS355Deu0PLM26By6Cfgu7Dg85BsDJy2f2OaGtKheKXpgGgrws
UcMWLaEQRzGjBcHtgwqVZuggQsmOSMkQuB+TbqWN3qV3N6LYIwQa1+j+1EK3
h7p/6X0dApoEveBDgv0RVsqj/BUKta62Lsroxnk6paM9DAz8F6LIgrz/0VRl
oiNhsrn+j2Xosn3etBPcSFBhQfViJB+oHiYznoeiQC95s+VvNGN8TSVzJAoU
b425f0efHYnQdNGNBjHzqWE2Oqnf91jZQixkbnos+QytLWVOHzh3BzTZ8/3F
6NE/1ZcTCu7APPPZvQL0ljEf24LdcVAmcpKVgXZ3VpMT6ouDbIey2mg00Y7x
NOtAPPjS3DMvos3MHzO+/ZsA151SXKYi+DDZayqaQboP8aVBrHF0GJVgb3Ls
Pvh/yt4zjC6xdSeVJ9yH7taS+h60mJtW6E11Grza+c6gFv0quOfPFX6JcFxo
YSEEvT9ffIUUIRk4V3NZBPRbyivr5r3JYJGSTBdCWxfdqPI3T4b8pHdOP8P5
EFPO9hjMTYZylW9Nw+iRuoLeJ6dToOeLzo9X6EedJ4v23UuF//aQvwSgVy0G
WeptSYNGyhyMhmG/nC9QlY6ngd2cUe5nNLlDyVrcLQ16wx0IH9GHcz7a9tak
QdQiK60BXZlDK6ugpENxeKVGKnrcZKxavyUdEj9U7NBHn3ua+O7aHxkwF9fU
lhaK930x2MBBNgOkVuuXJKA5xCvNZqoZIJ8YExmJdvc72qp1MQMCRc3Fr6Ej
z463ixRkADdbNFYXXTN39FOKQSYoTGnqjYTwQc54YqThNh10Ij97k9GkAL1D
jo/pQHTortmAXluQflu0gg51Fi4zBPQvggnFmEOHKZYljN/iQ1tdxbWBA1nQ
1OS3rQztuzdo4Sc/CyiZtapH0S1r1q+nHMkGH8nyOONgPlxvOQhJUzkwKR4m
pRuI86OU8d8ScuFMdM9/Kmh6zN7o31K5IP38SS0Z/cFgRw9VNxcGrxVSlqEV
362/JkfLBY/D3jdeBvCB/XrySbF6HkgYThZrovXqs8SaffPBU1icucOfDxtL
xQeWLGHAHcY6i+6b+F9xjr1v1SwGv+H2rl1/8eGly8PN5mOl0PWs+XGJOx+m
5bXWFFypgKqS6v2fnfiwdDZv7Wa551AnO0ZKteaD2qJ1uUlhNVwXPXJWwowP
70NUWhp3vYDwfFb1jCEfZOK+zuZM1MHpWeVbGjp8+DrDHujc+xLCFce5rgcx
32hVk1hsAyRYn9X+pIT5pbMneTwmiDz4Y32WDB+incsc0smNMHai5ncskQ8/
juTxnAJew/kVos3hwnzw2s8s3dDwBk7Qyy0rp3jALmTe/iDbBH/Tirs7uTz4
7dKRouD7DuLsdgc4tvNAUVtkwaHqPfBtvnva1vNAL0PWsWhjC8z07LOVKeTB
dWmrbYOWrWDaetXZKoUHSmPnVn083QaG6asVTkTwYN2abwTmrzbIzjWOfHOV
B8tepDC2p34A8WbP93MXeXBZpapnpX47jIPhVPZxHuSdvJRe+6MdHOiUF1MU
Hkx/Ja0dorEgtcu2T24TD8pM9IQTdDpg6zfHp9kLXAg4EZpWOtQB8csiSDuG
uCDbf6o7M7QT7lnmdvo2c+GQekiC5P4uIMor8H4XccFyS+vsElYXDGtsaXia
yIXpphiOR9BHKPqufcnBlwtJy6heZ8ndMLJiqNOJyoV1A2UZS5ndsGGtpbf5
US4s9wsyPejZA8quEqIa27kglENlcIifQFSvxjd2OReuJjNiiC8/Qbx6kHYl
jwM1ihEEcbdeoGSXiH9o4ID4qatKwWJ90Ee6mx9O50Df7jaWT3UfDMgFXZ4N
4sA/j4DMo/aDeoBuoawNBy4y1MSlF/pBZbXFFYcjHAgMfRzUlzsABtVMq9NS
HCgYkU4RM2BDz8TWyPW/BsFYXOzA619s4LqFjzh3DELU8qWb+9DmWT1UezRz
dnr+G1qrSqHTGq3G6W8g/WaDQWhD/QU0qaTgjBu6Kr4/WRfNMT3tKDHHBvuE
PANZtFdSNM12ng2NhxmF3axBKIgO9LmB/mZfQ+5ADwV6WcagG1zfJreizZwt
t1WgjSR7wxrRWoeUCkUX2HBigkctRa/oe/eqCK0aGS8Wh4a2F08b0YZ5/iG3
0TeYJbd70dsKnH6FoUfzU4yXL7JBxEhtyA/d4ne53wz9k/is5jJa5KpV3RW0
nPI9ZUf0EQeTzGD0ZmXXnEvoYkMN53y0d/vG++bor0f3GNSjuzxHRc+hyerb
93ShV/37PNAITVXcSPyKXmcU+UMfnSizanoRPRp7zlUP/T8qfwZS
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk8FIgXAHARSbsmqvUzNRSy5ZarRE9NKDrWkdA0IZQjd5E2148iR0JD
yDnkmqxjWFGUwUaUoxTDMDMronQsaYvZN3+8z/t8/3mfzzs+b5ubv62HqIiI
SB6GMFt5TPe3zZjvO8wy1isy5cNqMjGAI68CbRaxmkLr5Wfl1snrQ7+u6xah
+VtUokNV90FGXL+gEG3dO1x7V/4g7DzwclholSRSiUDxMLDO+dKF/mF1NtNV
9RgUL9I8hH4XO8RypdnAhnn7zUKfdP/6ME3eHoJtSjsK0CwysbE91wHUFBLd
hdZRNv3jH0UnqDshtpSPzhV1Kd9efApuLUlHCS3JjSlyUKXC6TX3f+ShH0wM
9LbbuwAzZuKC0AG/uVtRaK5g7VM6eBc9pn2dnCzvDmbX537PRWfk/69t+ykP
ONzi25aDtiJUmDzK9QSua9RSNrrhwzODeUUvKBN1s7iD9qVSa6+7esOiQJuS
hVbqm9faWuwDq4NueWaiUxiyO2xU/WBPk7TTbbQ5iU6fOecP71LV9megIzqz
1z+2D4Ag7htSOlrfUCPZiRYID5c+16eiCzYdv3ZDPgR0SQTnRPSV3kyWw4MQ
0PnQOZWAdoibEFU+dRHY5rLn49E/LQRGNudegpLUs4fi0GFDGWFzipeB0vMx
MgJtlzTW8GfbZciTNK/5Ha11UHUh1jUc/mZrDIcL91nXGEgqvgItdo0ioWib
9BHvY6oRcPRRY7cfWsNauZzYFQFSX8sKfIXzFvN9O3UuEmpGNH280WeaVmpa
7aPgEePzmAd6085ULUdaNPAGzhtT0NGSdb8myMeCx19rn1ug1SxvxdcGxEJD
dGM1GT0Q5z8z2hUL8VeWYsyE9yOmUal1KQ6MyPqrjNGdy3StoYFrIChLp2gI
+/1CM1BMSoBBWEyRRjN1L9IO8RLA2WEkSwpNDbD7Gmh8A8JFbG9LoKvfE5pY
0zfgs+oPjxUTPthOx5t4myeBqoeJ53t01lg4mbmSAu93BnH/Qu/f4kQfP3ET
Wl3TNrHQ75yNxCUZN6E33WJvK1ph7vJZhmYqzIn6UJlofy/D7SLsVBgaposV
omXdq8tKdqeBVKnr+EW0o1Nh9cdPGdBg/9JlE3p+1F6qiHgbiitNThDQ16iS
Hnbk2xCx/Ml0LbrurD+xIeM2rKuxmPuxlw/SfqZxV4xo4Kh3p4WH7oh54yxx
NRN+Zs6oV6N3VclIbJHMht3GIeam6KdaHS69OtnAkKhsN0C71IQ1RzhlA4Gr
Y6iFTm7gBExWZMP47M4lBfR0G2O09GgOtJ8amBcY8yHv5eEa3fRcuEoRv9+K
XieIplgq5IO/r4mnITrL6yRVwyIfWiNTcjTRKkMaLjJ++XBzR0mHCnpf+fDZ
0Yf5MOqxdUkW3VROYzZqFYBe2/FXH/bw4b3dXIt1XwHYlueE0tEnyjJ7gn8u
ght9C45r0LmnY454biuCO4Rl1eXdfODKXuh1NCgC4qnumc9o/6sHnpueLgJf
cuPRcXSC7fuBNYwiCHowmlKPfvjjwEjOkWKoD3VepKK323yYbk+kw0hVonOl
ER+IkZbG5wrpUPN0f0ceej2jIFGqkQ5PN7KU0tD/Stpp2XDp4BCh2RCGftHW
GDy+uwRS82/vM0eH60SvLP1dAszTPS9HDfnQR9i4UcvsHgx02SoIDPgQ2rcH
sv4ph6FK2KKgj/vTYv79VLICqJknrQhoerJO0vctFbBV7x9fEXT/kV/fUM0r
IKOj+SZXjw/qPRuDt9MqYNTtmnUpmtM1X1prVAkFMsRcdbTl4xLp3vAqUOp5
Uqi5iw9y9TLjq1ZVQ5hbHJmgg/+KS3723KQWplcZuo+o8eGJ993NTnP1IDtV
Xz2nwocFVVMC40IjHNoX3l2hwAfRb5XrN29/AL8pJanJyfHBUODSYHe/BfT2
l7ZbEPjwLFa/r1OtFbYePJIyJ8EHxdTZb+Uf2mBaPfTjL8s8mP3KGX+p8wTE
F9Qkdb/wgP6uuVs6pR2ySWGvGG95IE26N8/ns0DWtz+PNsqDJC+mZ4FKJ7wN
3lGZ+5wHi2aV/PORXWD8Jb6L/ZgHIbtY9b+0/wVnZlqHbOp5wLnPSuzf1g3N
J2nXJ+g8+O49lLMzvAfeNejSP2XwQH3/mhXP5mdwK4y11yOOB5ZF287VyPUB
lSe37lkwD0JJZ5QmKc/B6ouSDMONBxpzJ9YNH30BZrpii2DDgw2Ej5Ksf1+A
XFS0XJEpD1a35lQr5/aDuZaBUYUaD3z0m9+stR4AZry0t/smHlQedit4tDgA
JjscRroFXFiYJa6fog2C38WpGLFZLjDtLMUyDg5BypAg4NkgFyIPxeXXTw1B
ttTV5oiHXNg2ZvW6OO4lBCbfu7HuHheMjWIz5He9grTPCaFrU7hAUXj+bdXg
K9iqnV5FvIT1u5O5AdHDYFua0Pf/U1zIWk0NsVV5DeHBT+d/OcCFDePMIlHW
a/itryk1dwcXxK9G2+8JfAOqIhqHqT9xQaScWs2VHQFVafvCoE+TEJRdnSz7
ZATE3XfnVA1OwkP1eEkZv1EgN/g3vWZOgoxVkEaMNBssf18/FHlnEtiaLwYv
t7CBdOupiH74JPyRByp86hiwCT2BYZRJOF1tKENaGYP0mMisN/smISquMJpd
MQ4ma2IUdylMAmOalCN9hAOBOeeJZoIJsJGR3t31Lwc8j5LE9ccm4Ia46GY2
2nojeVYbzfq2sPwR7fjds18dbcgdayd+58DczvK7ymhiHeO4H1p7rZzhBjTX
/ui5TT844NWf5fmZPQEhWUm0s8sciE7X7/wDzUiKuhyGJrspVFWhp6JCKMlo
io1EWhna0Yui1IjOSX1xugBtaqxxX2qFA9fTjy3cREuwezpq0FZVH5X90fCi
tawTbRHdstYHHcaqSxxF11+6Nu+JfleVYyMu4MDbJxubqei+qz5jjmjOBNH2
GHpN0Jm2C+iUpmEjK7SZp11xDLqpNo1kga49tterCp0sITZjip49oH3kMXqP
6599e9AqRsrar9DebJ96AzRVXU52Fq0YRsrWRWcqrlsQoJ31eyM10f8Bh6ze
IQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.55},
  PlotRange->{{0, 0.5}, {0.5268771644711123, 0.761465062812003}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.561133323921875*^9, 3.56172854303125*^9, 
  3.561790071625*^9, 3.5619828194375*^9, 3.5620465909375*^9, 
  3.562069797421875*^9, 3.562354294125*^9, 3.562354915484375*^9, 
  3.562466103174881*^9, 3.562961917640625*^9, 3.563086915*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SN7d", "[", 
   RowBox[{"\[Lambda]_", ",", "dfib_", ",", "Rg_", ",", "AM_", ",", "del_"}], 
   "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"AppEffd", "[", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"MMEG2", "[", 
       RowBox[{
        RowBox[{"Rsee", "[", 
         RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
        RowBox[{"Ropt7", "[", "\[Lambda]", "]"}]}], "]"}], "]"}], ",", 
     RowBox[{"BetaMEG0", "[", 
      RowBox[{
       RowBox[{"Rsee", "[", 
        RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
       RowBox[{"Ropt7", "[", "\[Lambda]", "]"}]}], "]"}], ",", 
     RowBox[{"dfib", "/", "2"}], ",", "del"}], "]"}], "/", "dfib", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"S", "/", "N"}], " ", "ratio"}], ",", " ", 
     RowBox[{
      RowBox[{"assumes", " ", "sky"}], "-", "limited"}]}], " ", 
    "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.555050136703125*^9, 3.5550502555*^9}, {
   3.55505030340625*^9, 3.555050315109375*^9}, {3.555050443125*^9, 
   3.55505048015625*^9}, {3.555051500265625*^9, 3.555051529234375*^9}, {
   3.555051589640625*^9, 3.55505160484375*^9}, {3.559921476890625*^9, 
   3.55992150384375*^9}, {3.559921803328125*^9, 3.559921809046875*^9}, {
   3.5599237060625*^9, 3.559923715359375*^9}, {3.5599652561875*^9, 
   3.559965353609375*^9}, {3.560006464796875*^9, 3.560006531046875*^9}, {
   3.560156010703125*^9, 3.56015601578125*^9}, {3.56015622634375*^9, 
   3.56015624240625*^9}, {3.56068311321875*^9, 3.5606831536875*^9}, {
   3.56068330590625*^9, 3.560683415296875*^9}, {3.560683635375*^9, 
   3.560683638515625*^9}, 3.56069034671875*^9, {3.560793184109375*^9, 
   3.560793213734375*^9}, {3.561129382578125*^9, 3.5611293829375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P7850Zg", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"SN7d", "[", 
     RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.0", ",", 
      RowBox[{"10", "/", "56.73"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dfib", ",", "1.0", ",", "2.0"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.555050326*^9, 3.555050355015625*^9}, {
   3.55505038553125*^9, 3.555050392265625*^9}, {3.5550504924375*^9, 
   3.55505049440625*^9}, {3.555050565203125*^9, 3.555050566828125*^9}, {
   3.555051333515625*^9, 3.555051350859375*^9}, 3.5550514116875*^9, {
   3.555051536796875*^9, 3.555051556765625*^9}, 3.5550516093125*^9, {
   3.559921818765625*^9, 3.559921825296875*^9}, {3.55992200603125*^9, 
   3.5599220090625*^9}, {3.5599237243125*^9, 3.55992372784375*^9}, {
   3.55996538578125*^9, 3.559965406078125*^9}, 3.55997006221875*^9, {
   3.56000654309375*^9, 3.560006543609375*^9}, {3.5601562505*^9, 
   3.56015625109375*^9}, {3.5601563628125*^9, 3.5601563656875*^9}, {
   3.560683466703125*^9, 3.560683537765625*^9}, {3.560683645984375*^9, 
   3.560683652046875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VV0bB2CUQoo3UUkqmTMkJPL2GMpUSYMSylREGaKkQjJkKuqlRCSh
MiZDmaIBCSFfDkeDqUIoc2evffA9569z3dfZ19prPWvYv7XB0fPASR4uLi4h
bi4uzq+G1yVeLq4xMPo3W911NQMyuP+m6HOPQWJ736Hj4gxYEeezNYRnDOIi
1h84uIYBkyVnXBbxjoGcYH6P7loGFNLH3wsKjEG8oYz5sg0M2BxueGP1ijHY
3bbxdLY8AzbdFxRVlx8DL5Pzhe+0GCDVdF/a2WIMLGfjHtyxZECjQEBY7OMx
eLUlWmBvPAMooe86E6wx+KO1pPtKEwNEfsTsqDQZhy8V1XecuTtgMHkyxDR1
HCRfq68/uq0DDNb0rhUeG4dwt4v6tq4dcMQ/gko0noC2jl7ZxckdcDTPZ2N0
ygTwV4wrHGjsgJ6MgbSS0QmQPfg1a9d0B0hdEXVM3zkJ7Pi5qx7rO2FoXZNv
w+1JaD+vtOmmUSck36xjWv2YBP6rD69MuHaCwPdLgdnbp8BticUlqZhOmJ19
cUHz+hR49zl8/JLXCTkkvzCkfwrIymNR/zR3gtG7oe3a2tMQfriiJ3i4E05a
562Wj5yGjPZd4sK8TNBrVdTu6p6GkD1lrApJJqQKquXVbp6BzsMBrq0aTCjf
NO54LmIG+A48/1NuxoTX4tPOUd9mwJnB+0b/OBP2tl6tZqr8hR+z8KHCgwnx
p+qPjoT9BYqfIV4VyAT7dwkm2zr+QkujQCw7mgmrZrLDhmVZoDzhruGawITo
xX4LHQNYUGSjl736IRN+Ha99mxHIgixtbcMdaLPny0MGrrDggd+aGke0wMk8
bvdgFpjcywzIQUe96Zu7EM6CZC6R1u3pTIgM2EvduMWCq43OU0cymBA+KfW7
LJMFm8sSdgc+YkJI94eOf5pZ8GvKtiwkmwkeklIZni0sKG6b+pOBtjrm6/Wh
lQUMhSmBOrTKZ0n+yP+xQOek5u/FOUzoYnjqcDFZYE3E3KLQm5v/Sfndz4J0
MqsdlcuEr5WWjo0UC1IlE/adz2dCPZ2lokCzYDpublUculBnjlxjs+BZvMq7
AnRE6aM4g3kW+NtMfRxGaxT/rSlbSMGZ6dNp9k9xfDmJck+EKOhdXaS4q4AJ
WklfR0JlKFh3rZumnjHBcdDt8BdZCnJrBYdECplwfSurWl2egkkV20pldG/b
8rg+RQoS6DOiDujoJSbaepsp4Bp4dKsO3e1fGEbrUKB8eL74ehHWyy5c0tuC
gqXcxyp4S7C/eSsi3u+nwH3UzlsC/YVOG19/kILUoR4hdbTa3cqaFksKRm+c
mrNDf24dd1O2oUB99FtWKVrVwPbF4EkKnmgN6558zoQOaTULu8sUfFpwzyXn
BRMk7ginpvpTYLdpScZLtP3isdHuAArqtic1tKB/DeVH2wdRwHdKkjGJZucr
vXMIQ0tzDeiUMmG9tvyOE7EUBDVtmahBu+1dp+SaTsFtg7Sq+jIm5FfNXcrK
oKDH96xhJ3pS9dv7oUwKylfkFA6g/ZenuLg9oUDni5PFonImxHSIp5/Oo2DV
W6VIA3SRg5i4xwscj6zMxHM0+/xSPp9GCugZ1rPYCiY0NU86NTdR4GwtmJKC
vifXVa3QTIEF/wrPHLQO89GFnlYKYmQE6+vQfrp6A3sZFNyyntjLRk/x+NTJ
91LQUKCS61jJhBqbo1KhfRT4h/5a7ImOK4bA7n4KNgo3mF1Gb3EW3HrnJwX6
ClzX4tBe7zMzF4xQYH74Xtsb9EhsZ+i3GQrUxGXeSbxkQuVgVY82i4Jj36/c
kUNH62fq3qYoWNKgvHcLWnHy7NRuNgXB1TFexuhTh5ecKOMmUKlZGuuF/i6x
wzBekIDmTr0tVeji89Kpf5YSeDql6vcOHdIsQJsJETATf5jZipYK6ijkXk7g
R+LqF31o+34vKc+VBL7qPCnmrcL1k5XObSZF4JN9l4Qxuk7mi0HMRgKv8+SO
mqOfpq0IbZMmcLfOKMgSHZwYtshGjkA2tSDWCS0f6bLkjBKByWcv8wPR509t
Eo3ZSmC00IQqQB//7nS4TYvAtw3/63+ONrFPThDTJlDQbFlWiZawWiqeup3A
uoC9MvXoN8Z/JAv0CDi6mnJ/Qy+TK5JvMyPgAjcaeauZwHo47Cq2B8f/uMJZ
AN0rKZ1jvZfAkhK+0WXoYrHbyv37CCTY8FWsRNssurBl6hABmOuxlUfvDH7q
s+0wAeHXxvuV0CpzA8X+RwhstO7ZvBnNM2OlxWtNIOhRwTMt9JMfOrpidgSy
6oXLd6H/c/AJsLbH+h035TNFX/6aU3XfgcBnVp3+HrR5u4S+3AnsX3OS7wH0
tv2WwadPEjj7afqsJXrDhxtvnzoTUDqXamWFnqqZ27XNlUCI6ODAMfQ3Pa1w
fzesd2/0TXv0u0rP+lenCe6HcGkndFJxj5mpB/Zn/NayU2j9jDf7rH0I2GWr
DXuh3VQ1VO6eI6At8uO7Nzq+PFOQcZ6Arv7HhnPon614fPgRaBy3tfFDC9uS
x7EXCbyd4Vp0Ca09cPrah0sEqmp/Jl9GX581NzQNIKBeFxQbiC6JeLUhPJBA
/UXt4Suc/ops4aq9QuA6rauOXx7gS03/xnOVQOD1Gy7BaDVF0Zd6wQTOuytH
hKCtS67dCwwhcKBb8nYoOlSPdbEylMCQ1ImYMHReo6sVCSPw12/e5xqacfjz
1m3hBNSkJneFo+d794j6RhDYY6e/MAIt7141WRRJgOk1ks/xAZZq23gUgeCE
mV2RnPkJSStQvU7gnYjje44zlonEut8gsEFWTTsK3ZwY6p4TQ4BfyPk2x3+l
Z3YPxWJ/li34xvH6AhdFuVsERJ0FRKLRptuZfCf/I9B9KFCDY+86s4GHcQRu
rHEw4Dh5f2VtTzyBo6RYl+PaL8oZkncIuKn5b+T4t0tqsG0CgT6ushlO+6sm
hR2S7hL48sT9Ocf6gcHQmUjgiGuyI8du/FNrxe5hvYKNaU7/4+JPsg8mE3il
fjaI48p1HV23UghEvFwzwRn/z2yTspb7BPzsTC04FtpanrD0Ab7/KDuJU79t
rzf57k4jsGp4axunvo57Ug5FPiSw5RA9zal/sWPQP7yZBPbnKC7gzM/X0fE/
Bo8IXFiVNMKZz0UXnZqDHhM4ZZP8hjPfR2ONotlZBJztHTU46yFYvNRVJwfX
f5piawA6N1PBxC+XwPGSGCt/9FyFIO9UPu7/Q+qqF9FyxoH9agUE9I77BVxA
W7T9ee35jMCAlmPpeXT6YFvgcBGBpiPKU2fRTT47jymUEOCSEJn2RM/MlWx3
eY7rIfdRnzvaRDSR1VdKIFWpJ8QVffaBQMf6cgLbkqK0XDj7Z5N/yfEKnM+W
4Y4T6FF9O++ulwT2RX7+ZsfZ3x4yIx/fEFi58ikvZ78a9aZ0KNYQ6JHb0b0f
TQ6KvQ2pJdBqovzQHO2kvThJs55AtZrWd2O0xsIh48QPeF53mR7VRg/6OqhP
NON6eawQqMlZH0NMyd2tBDK9gq6roRe2NEyz2wh4u94/qYBuT8xNt+8kcE1q
hH8VOkpQJraMSeDJ3/9dEkHvuJJyafln3N9PTds5592jEzH7a74SSNP6ZcQ5
H31Vvebl+nE87/atHcfzc1Wtus2fUQKbPJUTa9BNWrlGJn9wPu+bZVShg7Kl
t6SN4fOeGxNL0UOxovwHJwncdhTRy0WXW/99/pxFIPKabsh/aJux8uWBC2i4
rq3ea40WdlKfYyykoUfSIfIguqY9Z0h1EQ3VFn5r9qCVKpJf9fLRMMbtMauL
ZocFeuxaRoOme13pWvT9NQYNgqtp+FyaJfQZv09nngneMxengefYxGgbWse4
4/TNNTR4csmXNaA7vM8sXSFJg3mok1g5WrjhjsWajTSkaNmOJKCD/YYZCso0
JLce5bNAO7fH9xvp05BzIV+4EL/HGqftiiMMaFDwEL71GM3DrRjWYIjv25E1
l4xOVaqWNTeiIeRBRFo4ujNkyNVyNw3bR3YsskWbbdkx5mRJwwq4sZcbrRo7
wA5ypYFbrqH/X8wPEYJlXV/daDDmjSOq6L7IqFKdMzSMz9ynN6DjQ5XPTXnQ
UFMbXcmLZl30GXY5RwP/DwGdJswzb07MM82v0PDDS1nWEm2ps/KFxG0aPkR6
dRzm5KcXg/EX79CgXW+oa4Tm0yz3ZiTQsNv7RbQmulz1mMrNJBq25kX/EkFL
yqRnLnhAw04N7SctmMcGhVTjf2XTUNSlLmuIvvzD6GzpKxrAha0njnnud5ib
xtxrGt7a3TPiQzvKxvw1fEsDdWRQewbzoolLe0BLLY33gNtDH9FiQ05RPxto
sFAOco9AF4wEpa9ox/n8mM4/gXnz+2R5u9cQDSZvU9NfFDNhD4+qjsJyNnTU
jPYKYt6dfxaddEqEDSoX4xgzmJ8LHQbJ4xVskE9SLu9Br3qdViG7kg0f/hib
F6O/X1nxr7QEG/TDDmRbo/1nMXvLsqH1V456BubxHFbNLlEdNhyKaklSxLwu
8Md6P7cjG3jIDU1evA+EVOllJ5eyQZq76ZwF3keuHnp65Cz/LHzamJcnnIzr
7UOHEb/DLIjVhzUt+A/zuOjOUL4Xs+AzdiFYOJwJ/DLaYvqL50DLIZl/+DLW
S2xwSPf4HHTeqmzowvuWVcu65d5P56DNYNndOgfMT0fuRSybn4PExm135Q/h
fe1Nq56H5Tzs/CoZFL4Tn5+K2bv40Tzs7mmrVtJkQjbf4mSn2Xl4f5d9sHwj
5jGeq0s90BtTHqiVovvZJNAPHVGsL/QcLTH+2+EG+prE5YZn6BgmQ+4Fuvpj
g14W2jv7UZHA3Dw0fvqqdBe9fY9R4zN0rHUbjy/ayuiVbiX6ZP2qHh/0OT2d
/Dr0e1Pbl2fR+Roqtz6jLcO7Lrij168VO8I7Pw/To0UjJ9ALf//os0J/OtPV
fpDz/6DdISd0ruhE4X70v33MWnf0wbZFN/ehfRkfngSjlcPlzHajB6tKPHLR
kd27qgw47ZWp9jxHe8gZ3dNDbyjK2v8abRpi6LcDbf04RYOBHvbV3KLDaS9t
5aMedPkyRaFt6Lh7t1YOo2+VrxnRRBfcXhI5jT53SeC9OropNozMo+3NZzLV
0P8HJgL6XA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1., 0.35000000000000003`},
  PlotRange->{{1., 2.}, {0.3453009609738341, 0.4023159168468105}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.559965413*^9, 3.55996547578125*^9, 3.5599685955*^9, 
  3.560006582609375*^9, 3.560156110796875*^9, 3.560156301578125*^9, 
  3.560156340921875*^9, 3.56015640634375*^9, 3.56068350284375*^9, 
  3.5606835811875*^9, 3.560683695921875*^9, 3.5606901001875*^9, 
  3.5607543661875*^9, 3.56075738546875*^9, 3.5607575616875*^9, 
  3.56075804996875*^9, 3.560762738109375*^9, 3.560765049234375*^9, 
  3.56078830021875*^9, 3.5607932951875*^9, 3.561132668140625*^9, 
  3.5611327368125*^9, 3.56172857865625*^9, 3.561790105078125*^9, 
  3.561982852078125*^9, 3.562046627734375*^9, 3.56206983053125*^9, 
  3.562354311609375*^9, 3.562354948515625*^9, 3.562466135768631*^9, 
  3.562961950203125*^9, 3.563086949421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P785014g", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"SN7d", "[", 
     RowBox[{"850", ",", "dfib", ",", "Rgal", ",", "1.4", ",", 
      RowBox[{"10", "/", "56.73"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dfib", ",", "1.0", ",", "2.0"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.555050326*^9, 3.555050355015625*^9}, {
   3.55505038553125*^9, 3.555050392265625*^9}, {3.5550504924375*^9, 
   3.55505049440625*^9}, {3.555050565203125*^9, 3.555050566828125*^9}, {
   3.555051333515625*^9, 3.555051350859375*^9}, 3.5550514116875*^9, {
   3.555051536796875*^9, 3.555051556765625*^9}, 3.5550516093125*^9, {
   3.559921818765625*^9, 3.559921825296875*^9}, {3.55992200603125*^9, 
   3.5599220090625*^9}, {3.5599237243125*^9, 3.55992372784375*^9}, {
   3.55996538578125*^9, 3.559965406078125*^9}, 3.55997006221875*^9, {
   3.56000654309375*^9, 3.560006543609375*^9}, {3.5601562505*^9, 
   3.56015625109375*^9}, {3.5601563628125*^9, 3.5601563656875*^9}, {
   3.560683466703125*^9, 3.5606835650625*^9}, 3.560683661671875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1nk81Nv/B3BLGkTJTossSYslyc1E7+iSJaXNViJrRZRcFaFUsmQrqV+k
lCJlK2uJkBZFGGaiIuRm6cq+zeeM7/vz+2sez8fM45zzOud9zryVXf32eAjw
8fGJ8PPx0Z96J4KE+PiGobBK6rflaDNk8E/dMeYfhocrFab1xppB+vop/YsC
wzA7EtO3fLwZxop8vOYLDUOW64vA0YlmeMY99EFMdBheLwTzWzPNoHNlW6yC
9DB8nS/2uoOPBWvTxGQ2aAxDneiAoN0iFqh8SlPztBmGHIfzv8bXsuCjaMjl
+Eycrzlb5coRFsws+skcnR4GJ12Rxm13WSDVG7el3HwEjk/sMGayWNCXOnbR
4u4I7Dp9ifVMpAVMlnQtkxgegZs7hY7UMFvA7lzkzP9tH4VS9ZjN83xbwCHn
lGrMnVHQ+ju8wyutBX5k/Eov+m8U2k0pidYPLaASJuP64O8x0JL33C051QL9
Sp8C626MgSh37UySUiukJrxts+8dg2ctRxnPTFtB9GdQaPbmcYjuPu5kdrwV
CCk5vfHqOByr9R2NS2iFJ7O5zy72jIPfgvajjKJWMHvXv9nAYAIeQ2HrQk4r
eDjmKGhETUCQhn41c6IVtjauMWjvRHvGappKs+Gu2PqcWp1JMApdoZqnzYYX
a0dcAyInIbE9VKfEig1VihOe0R2TwCfn05LowQbrxguVbVpTUCrxa7fBOTYk
HXnv8PvyFJxecGBG/zobXN7dNN/EmQIDF5N+ZiYb5CezLw+qT4O0lrL1pTI2
xDDOzHMNmYZgAUtGz0c2XOys5yxumIah+jX7c76y4a/b339fWjkDEeG+/vaD
bOCorbdxDp6B/G9KN61m2ED9Iy586uMMZAQOt4gLceDb4wf8liqzEPC8cMEZ
CQ4YZ1Tvcjw1C+KR18J6FThwzXfl76bqWQj3V9kpqMKBtCUmdWIKXAg8MpWU
vJoDPgViKTsVueB453tgPpq5neOdsIQLl/Jst9ehOf4+4tLLuZA3zCgkaIm6
ZJslqly4FZ1U7raGA+FnBtmrNbnwcEtNzLq1HPBsTeoxM+bCm6pOzYJ1HNCO
/0WdP8qFqDinbxHaHIgUK2v/fowLN2r2Qhq6Oyq6lOnDhTJZy7gidNIlzYBx
Xy6oe8BwD3r67KlBrwAcvybiDehwoNp9rm1nGBd0oxzyx9D7mXIlS29wQYCV
/GCHLgdyS/qSziZzweNwcvRhtPDGF/7sm1wQO/vFKRD9QttJK+E2F7oS1n24
i16+8sFDwXtc+B608/kIum+RdtJANheWD1twEjdwILjX7GTpay5s9MrwqdHj
wNDlY3q8KlxP15vMFrSretzUthouXGjpa+pFm3u1hnyu5UJHj/EYYyMHZPvd
ov+t44L1oNcxK3T+7/MPpFu5cOYBWfsZ/XPsReuJfi7s1FYSrtPngF1Sx63i
Afx91ph6G7pOT+AgNcgFg2T+jX3ogn8suq8MccE9vnH5/L84EDrFGUob48L4
2mOrjdHy3HFGPeFCdKbQ0kL0DgFt5mpJCsqjH4fHbuLAXEHM7SNSFCh/zbG8
jX52uG82U5qC+2pvBTLR8lXpL9XlKGjmbtr2Gv0zTNpIbSkF2av2CY2iz5EZ
UFKnYOpjTfweAw48mX5jKsOkwIGb/p7B5MChLOVH+zZTILlkU7IkWsI+dH6S
IQWGI9L7lqEDS/56JwkUqMs9vqeLNgnMNpf4m4KDGV4hB9HtY/FWC3ZSEBJ9
zywHLfrHcTe/KwV5sbKq2zbj/kZUVBxwo6Cy+/XLHeiIZSrrit0pMPqjbmKL
FtjRP9/biwJNYy35o+iZrNPlLT4UGFu69sei+1yTVmWdpoDRqarSglafnUoS
OEvBYF3wzW9o98QDAk5BFDCL8mZ/on9UqnxfHELBoxvPoyfQnKUF14LDKfCb
cmuSMeTAW3Y92RlLQUnuGu4e9Dzf9d6P4yg4ckhvlyPaROjGF8EECoIsmYmH
0RUbDj4vvUbBaK9Jpx+6KGHgiMotChJiwh7EoDMsGS0T9ymoCT7aUInu7jpm
bJNBgfsVDcG36BVnG3KzH1JQJzhP/RM6NfNGlHMWBXGO8vpf0Enz1OBDDgXd
n4fC/qAvVmzNTi2lYFZfplzRCPf3zCTVWUZB4c21IUpo3Q1Pd6m+pGBd3Xst
NXR3ptzE41cUsNaluWmiTRKHoKSagoH0bilA37bKuDZbQ8GMhZPDNvSokGOv
US0F1Szv+O3o+0G10W/eUdAjZVW/Cy3gntra9IkC1WlIcEY7Lt+jIdNAwXyX
K45u6GdfGMH2nymIKPGT8UK7Wp9a0dlEQdnL1U6+6Gp9S+/fbAo215zQO4cO
F5nmY3RR0CFUKniDzlOTs9eym4IMqeYvN+k8oW6PYnsoOKmemXabzjPaYCX9
LwWbOiOpu3Sebw+TlQcp4Gyy58+m8yQf6Hf/TcFq0TMHn9J5bBYbZv2HeX85
Z+XSeWrPdWkNU/DBKk7yOZ0nb+86wwkK1Myv67yk8xwVCQubpCBYQlnyFZ1H
tbKpeoqCowMXf1bQeW6tOW0xS8H0vs8HqtEv9vz4cJVLwXH1l3xv0JLiyUsb
KcwXE55cS+e9wF9tO0eBbEJ20nu0omGJ9G0+AsUnFpIPaP9JH6/v/ASaPPbZ
fkSreH8Rc59HYMXC2K/16KCVcc6ZQgTS+C8yPqObO7c9G5hPQDX6sFoj+sK+
PLuTIgSc2zt0mtHuk94ln0UJbInp2MBCm93SkNMSI7BPQXNlC3o1szfwqjiB
3huf5rWixb6lswcWEtCQrGym/SfkkL6FBAGTu/Pj2fR8SkuSMxcTsNn50ICD
LqriTAhJEXDRudNM+5Zb0n53aQI+tsMOX9DBQruLqmUIHG+695n2oUxxGWU5
AqbP8je0oY0t6gLC5AnUiahE0FYbjGj5rkCgvm/yLW1G7DY9wyUERF3WT9Ie
0OJLur2UwOrzLKl2dH1j+dj0MgIsh04l2vn+Z/faKRG4RWwVaV+X1n9etIIA
FWwoSDuweFRSWoXApd7Edno8B/s8f39VAnGWDvdoG856NzeqEQh9mbSPtlKq
hq62OoE75mZT9PoFtvQmxq4iYCBwIpL2z870kUENAsHTUsK03104tNtyDYHY
zXqB9H5kqy4pyFpLIPprczO9f1drORIMTQLn+kaW0fbzSjrhoUXgoP91O3q/
94jsbqzRJqAQVRZGn8/GJ+I6KusJJBt6JtPnJ29dF39el8DD1JQU+nw7Erbt
MtqI86dnnaTPv0qXLy9Fn0C6xyUTuj4yWsoXzv5FQFZmhL8BfUxev6GYSUAk
4PIOur6sX4xqyhgSOGlSwKHrT+dgXuwpIwLCzMDddH1O3NWw1tlK8J1iSdD1
+8W492mcMYG7+Sdsa+h670kX+8+EQFhvbnQV+vyqJZ8emxLoeiVXSd8XsTxx
K1UrrIdPLXZFdD3Z1GVf2IHn41f8//eteTRC9Ic1gUXDFuX5dP3o89Wl2hBw
rYn7+gStWjFqLmuL81t8sExHz3fJywqwI6Doeyo4Dd3H7yPMsiewsqfzdgo6
17T3XfwBAtunGY/o94NZzzETOUxg1K7hv0j0wdD6bYddCUQ+ic64jA7Trtla
5kbgV1SpZTj6TWIu86gn/v7pCY9g9E7by1ofvAkYjUa2+KDdOnVlowIJPA4S
S9mBjkjQkOo6TeBdbJ2FOTrLeLmEwVm8z4YKffT7OfRARLQ/mMAunRNjTPSZ
Iz+I+QUC4i+Zphp0PYzE9gpfJSCVNM6ew/c89/7FbpdYAn9EHobNopv2nu0s
jSPAt1xIfgItW+zediQR96fzq9wAOj1oc/37ZAIpMwr7WOhiwf7CyHQCm/5E
vb6P7pT5+5JwCQF20+vAjeilAzGeFqUE7q2xuqWFtq9gmUeXEbgm0PZkFbrZ
001crBzvi7/QYwX0m5Lw5EVVBOI16rkU/j9mO1RlyX4kML43cF4VOuDOlnq1
TgJVCStytqDzT0bkefwgMOGiIqmP/s+0IfFRF66nwOGoJtpzyMlW4yeB3wv9
hpagHSCkc20/3m9Pl73T2A9s6Xo5ojuG533tRVQuWmSlgawxgwcxr3WfS6Ab
f1wRuiPMg8/L7oULoW+lssenRXjAcFxsMov9ioZ0ACtfjAf5jozEHrSZYF7C
Ckke5Pad8StCh3epLeBbxgPKXlPHFk3dkeCr1OXBp9r8hhjsf944OP9R1OPB
/izf+6HoGJncjsCNPLic7ud5Eq0Ya/VKaxMPvpSZVNqiN52LCEoz4oHWU/fC
Feh/HKnxEHMe3M+0yS3A/mxItq/f8BAPkoJjh95hf9c4EVlxwZkHx9rkGsvo
fq9l9fW3Ljzo3a+c8QQdcM3b0MaNB3NiparxaK74nzi3IzzwVlK+sB8tLDS5
IdqfB1n824s7sb9UHRMM5UTwYHCSITOA/an9ZyVJ/zzMa+pE2NjvBr2auZif
zwPgU+upRac8YU0MFfDgnOKe8kJ0x5Urbd6FPGh2HTC/hnbb+ueeRxkP3Ef0
PtL9tm9BhbZDDeYzD/uncj0HLl13st7K4YFJ/S7vFOzP8+xSIhfO8WDdyl4t
LS18f6obt/run4OYMaEeEw1cz3icNePRHNROK1SOKWP9CDNS3cgcOG4J7TJX
xP5K4IK4LzpnzXD/dnQPNRt6Bu0t6jxqhl46MnQ4Fq2ZsUHQFB3Xxl5VgpY3
LlUzRvtnP3ouypuD66raXgbozTvMPhagF95n9a9G25u9NixHV/D/HNFAB2xl
5r5FG+8fmVmFztXTSvyKfssREFVHr1gmayc0NwdrrPjXqKDnDfV226O3D3kf
VaS/73Pe54a+ftXqpALaqLut9jj63+UaZ+XRgez6rHB0ptKXSFl0X0WR71P0
VKJUliQ9Xpn2j2J0fWN73mK08vPHu6vQFYJ3SyTQjpl39NhoabPl7xbS46XL
PfqBPre/rUEcfT0lUW4QLeGQyBZD599YEDWBbrIx61iA/hR/eXYOXWc43SuK
/h9GXGF9
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1., 0.3},
  PlotRange->{{1., 2.}, {0.2960383706513554, 0.3631501494650397}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56000664*^9, 3.56015612653125*^9, 3.5601563531875*^9, 
  3.560156447125*^9, 3.560683626484375*^9, 3.56068373909375*^9, 
  3.56069011990625*^9, 3.560754385234375*^9, 3.560757394484375*^9, 
  3.560757602625*^9, 3.5607580911875*^9, 3.5607627758125*^9, 
  3.560765085140625*^9, 3.560788334796875*^9, 3.560793353296875*^9, 
  3.561132715640625*^9, 3.561134596859375*^9, 3.561728607390625*^9, 
  3.56179013215625*^9, 3.5619828788125*^9, 3.562046654359375*^9, 
  3.5620698578125*^9, 3.5623543289375*^9, 3.56235497478125*^9, 
  3.562466161643631*^9, 3.56296197615625*^9, 3.563086976828125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"T", "=", 
    RowBox[{"11.5", " ", "C"}]}], ",", 
   RowBox[{"RH", "=", 
    RowBox[{"44.2", "%"}]}], ",", 
   RowBox[{"P", "=", 
    RowBox[{"772.2", "mbar"}]}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.55923058059375*^9, 3.559230585359375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ZD", "[", "AM_", "]"}], ":=", 
  RowBox[{"ArcCos", "[", 
   RowBox[{"1", "/", "AM"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.559226422578125*^9, 3.559226452828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TC", "=", "11.5"}]], "Input",
 CellChangeTimes->{{3.559226531453125*^9, 3.55922653346875*^9}, 
   3.559229280484375*^9}],

Cell[BoxData["11.5`"], "Output",
 CellChangeTimes->{3.55922653415625*^9, 3.559227795078125*^9, 
  3.559228740890625*^9, 3.5592292823125*^9, 3.559923791609375*^9, 
  3.55996859559375*^9, 3.56015613996875*^9, 3.56068377025*^9, 
  3.560690119953125*^9, 3.560754385296875*^9, 3.560757602765625*^9, 
  3.56075809134375*^9, 3.56076277790625*^9, 3.56076508528125*^9, 
  3.560788334921875*^9, 3.56113459696875*^9, 3.561728607453125*^9, 
  3.56179013221875*^9, 3.561982878859375*^9, 3.562046654390625*^9, 
  3.562069857890625*^9, 3.56235432896875*^9, 3.56235497484375*^9, 
  3.562466161690506*^9, 3.562961976203125*^9, 3.563086976875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "=", 
  RowBox[{"273.16", "+", "TC"}]}]], "Input",
 CellChangeTimes->{{3.559226481125*^9, 3.55922650275*^9}, {3.559226537*^9, 
  3.559226538953125*^9}, {3.559229272953125*^9, 3.55922927790625*^9}}],

Cell[BoxData["284.66`"], "Output",
 CellChangeTimes->{3.559226504859375*^9, 3.559226540140625*^9, 
  3.559227795140625*^9, 3.5592287409375*^9, 3.559229285625*^9, 
  3.5599237916875*^9, 3.559968595609375*^9, 3.560156140015625*^9, 
  3.56068377028125*^9, 3.56069011996875*^9, 3.560754385328125*^9, 
  3.5607576028125*^9, 3.560758091390625*^9, 3.560762777953125*^9, 
  3.560765085328125*^9, 3.560788334984375*^9, 3.561134597*^9, 
  3.56172860746875*^9, 3.56179013225*^9, 3.561982878875*^9, 
  3.56204665440625*^9, 3.562069857921875*^9, 3.562354328984375*^9, 
  3.562354974875*^9, 3.562466161706131*^9, 3.562961976234375*^9, 
  3.56308697690625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PS", "=", 
  RowBox[{
   RowBox[{"-", "10474.0"}], "+", 
   RowBox[{"116.43", " ", "T"}], "-", 
   RowBox[{"0.43284", " ", 
    RowBox[{"T", "^", "2"}]}], "+", 
   RowBox[{"0.00053840", " ", 
    RowBox[{"T", "^", "3"}]}]}]}]], "Input",
 CellChangeTimes->{{3.559226498015625*^9, 3.559226498265625*^9}, {
  3.55922655409375*^9, 3.559226567046875*^9}}],

Cell[BoxData["14.305078113924537`"], "Output",
 CellChangeTimes->{3.559226568125*^9, 3.559227795203125*^9, 
  3.559228740984375*^9, 3.55922928925*^9, 3.559923791734375*^9, 
  3.559968595640625*^9, 3.560156140078125*^9, 3.5606837703125*^9, 
  3.560690119984375*^9, 3.560754385359375*^9, 3.560757602875*^9, 
  3.5607580914375*^9, 3.560762778015625*^9, 3.5607650855625*^9, 
  3.56078833503125*^9, 3.56113459703125*^9, 3.561728607484375*^9, 
  3.56179013228125*^9, 3.56198287890625*^9, 3.562046654421875*^9, 
  3.562069857953125*^9, 3.562354329*^9, 3.56235497490625*^9, 
  3.562466161706131*^9, 3.562961976265625*^9, 3.563086976921875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RH", "=", ".442"}]], "Input",
 CellChangeTimes->{{3.559226620140625*^9, 3.559226622296875*^9}}],

Cell[BoxData["0.442`"], "Output",
 CellChangeTimes->{3.5592266359375*^9, 3.559227795421875*^9, 
  3.55922874103125*^9, 3.559923791796875*^9, 3.55996859565625*^9, 
  3.560156140140625*^9, 3.560683770359375*^9, 3.56069012*^9, 
  3.560754385375*^9, 3.560757602921875*^9, 3.56075809153125*^9, 
  3.5607627780625*^9, 3.560765085609375*^9, 3.560788335078125*^9, 
  3.561134597078125*^9, 3.561728607515625*^9, 3.561790132296875*^9, 
  3.561982878921875*^9, 3.562046654421875*^9, 3.562069857984375*^9, 
  3.562354329015625*^9, 3.562354974921875*^9, 3.562466161721756*^9, 
  3.562961976296875*^9, 3.5630869769375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P2", "=", 
  RowBox[{"RH", " ", "PS"}]}]], "Input",
 CellChangeTimes->{{3.55922662665625*^9, 3.5592266276875*^9}, {
  3.559227400484375*^9, 3.559227401734375*^9}, {3.5592277263125*^9, 
  3.559227728375*^9}, {3.55922830703125*^9, 3.5592283143125*^9}}],

Cell[BoxData["6.322844526354645`"], "Output",
 CellChangeTimes->{3.5592266383125*^9, 3.559227403515625*^9, 
  3.559227730140625*^9, 3.55922779546875*^9, 3.559228324515625*^9, 
  3.559228741078125*^9, 3.55922929709375*^9, 3.559229329703125*^9, 
  3.55992379184375*^9, 3.5599685956875*^9, 3.5601561401875*^9, 
  3.560683770390625*^9, 3.560690120015625*^9, 3.560754385390625*^9, 
  3.56075760296875*^9, 3.560758091609375*^9, 3.560762778109375*^9, 
  3.560765085671875*^9, 3.560788335125*^9, 3.561134597109375*^9, 
  3.56172860753125*^9, 3.561790132328125*^9, 3.5619828789375*^9, 
  3.5620466544375*^9, 3.562069858015625*^9, 3.562354329015625*^9, 
  3.562354974953125*^9, 3.562466161737381*^9, 3.562961976328125*^9, 
  3.563086976953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P1", "=", "772.2"}]], "Input",
 CellChangeTimes->{3.559923812671875*^9}],

Cell[BoxData["772.2`"], "Output",
 CellChangeTimes->{
  3.559226652453125*^9, 3.55922779553125*^9, 3.559228741140625*^9, {
   3.559923791890625*^9, 3.559923813875*^9}, 3.559968595703125*^9, 
   3.56015614025*^9, 3.5606837704375*^9, 3.56069012003125*^9, 
   3.560754385421875*^9, 3.560757603015625*^9, 3.56075809171875*^9, 
   3.56076277815625*^9, 3.56076508571875*^9, 3.5607883351875*^9, 
   3.561134597140625*^9, 3.5617286075625*^9, 3.561790132359375*^9, 
   3.56198287896875*^9, 3.562046654453125*^9, 3.562069858046875*^9, 
   3.56235432903125*^9, 3.562354974984375*^9, 3.562466161737381*^9, 
   3.562961976359375*^9, 3.56308697696875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D1", "=", 
  RowBox[{
   RowBox[{"P1", "/", "T"}], " ", 
   RowBox[{"(", 
    RowBox[{"1.0", "+", 
     RowBox[{"P1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"57.90", "  ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "8"}]}]}], "-", 
        RowBox[{"(", 
         RowBox[{"9.3250", " ", 
          RowBox[{
           RowBox[{"10", "^", 
            RowBox[{"-", "4"}]}], "/", "T"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{"0.25844", "/", 
          RowBox[{"T", "^", "2"}]}], ")"}]}], ")"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{
  3.559226689484375*^9, {3.559226730890625*^9, 3.559226797*^9}, {
   3.5592278554375*^9, 3.559227859*^9}, {3.559228491765625*^9, 
   3.55922849821875*^9}, 3.559970062234375*^9, {3.559970150640625*^9, 
   3.559970177921875*^9}}],

Cell[BoxData["2.713741663331463`"], "Output",
 CellChangeTimes->{3.559226767515625*^9, 3.55922679865625*^9, 
  3.559227750390625*^9, 3.559227795640625*^9, 3.5592278601875*^9, 
  3.55922837190625*^9, 3.5592285105*^9, 3.559228638296875*^9, 
  3.55922874125*^9, 3.55922923709375*^9, 3.55922931553125*^9, 
  3.5599237919375*^9, 3.559923824015625*^9, 3.55996859575*^9, 
  3.560156140296875*^9, 3.56068377046875*^9, 3.560690120046875*^9, 
  3.560754385453125*^9, 3.5607576030625*^9, 3.560758091828125*^9, 
  3.560762778203125*^9, 3.56076508578125*^9, 3.560788335234375*^9, 
  3.5611345971875*^9, 3.561728607578125*^9, 3.561790132390625*^9, 
  3.561982878984375*^9, 3.562046654453125*^9, 3.562069858078125*^9, 
  3.562354329046875*^9, 3.562354975015625*^9, 3.562466161753006*^9, 
  3.562961976390625*^9, 3.563086977*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D2", "=", 
  RowBox[{
   RowBox[{"P2", "/", "T"}], 
   RowBox[{"(", 
    RowBox[{"1.0", "+", 
     RowBox[{"P2", " ", 
      RowBox[{"(", 
       RowBox[{"1.0", "+", 
        RowBox[{"3.7", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "4"}]}], "P2"}]}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2.37321"}], " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "3"}]}]}], "+", 
        RowBox[{"(", 
         RowBox[{"2.23366", "/", "T"}], ")"}], "-", 
        RowBox[{"(", 
         RowBox[{"710.792", "/", 
          RowBox[{"T", "^", "2"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{"7.75141", " ", 
          RowBox[{
           RowBox[{"10", "^", "4"}], "/", 
           RowBox[{"T", "^", "3"}]}]}], ")"}]}], ")"}]}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.559226811890625*^9, 3.559226879359375*^9}, {
  3.559227461015625*^9, 3.55922750278125*^9}, {3.5592278353125*^9, 
  3.559227839390625*^9}, {3.5592285011875*^9, 3.559228504625*^9}}],

Cell[BoxData["0.02222067609232915`"], "Output",
 CellChangeTimes->{
  3.559226886390625*^9, 3.559227504453125*^9, 3.55922776009375*^9, 
   3.559227795703125*^9, 3.55922784084375*^9, 3.559228378703125*^9, 
   3.5592285105625*^9, 3.5592287413125*^9, 3.5592288771875*^9, {
   3.55922931928125*^9, 3.55922933446875*^9}, 3.559923792*^9, 
   3.559923824140625*^9, 3.559968595765625*^9, 3.560156140359375*^9, 
   3.5606837705*^9, 3.5606901200625*^9, 3.56075438546875*^9, 
   3.560757603109375*^9, 3.56075809196875*^9, 3.560762778265625*^9, 
   3.56076508584375*^9, 3.560788335296875*^9, 3.56113459721875*^9, 
   3.561728607609375*^9, 3.56179013240625*^9, 3.561982879*^9, 
   3.56204665446875*^9, 3.562069858109375*^9, 3.5623543290625*^9, 
   3.562354975046875*^9, 3.562466161753006*^9, 3.56296197640625*^9, 
   3.56308697703125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"N1", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"1.0", " ", 
   RowBox[{"10", "^", 
    RowBox[{"-", "8"}]}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2371.34", "+", 
        RowBox[{"683939.7", "/", 
         RowBox[{"(", 
          RowBox[{"130", "-", 
           RowBox[{"1", "/", 
            RowBox[{"\[Lambda]", "^", "2"}]}]}], ")"}]}], "+", 
        RowBox[{"4547.3", "/", 
         RowBox[{"(", 
          RowBox[{"38.9", "-", 
           RowBox[{"1", "/", 
            RowBox[{"\[Lambda]", "^", "2"}]}]}], ")"}]}]}], ")"}], " ", 
      "D1"}], "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"6487.31", "+", 
        RowBox[{"58.058", "/", 
         RowBox[{"\[Lambda]", "^", "2"}]}], "-", 
        RowBox[{"0.71150", "/", 
         RowBox[{"\[Lambda]", "^", "4"}]}], "+", 
        RowBox[{"0.08851", "/", 
         RowBox[{"\[Lambda]", "^", "6"}]}]}], ")"}], " ", "D2"}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.55922696940625*^9, 3.55922712684375*^9}, {
  3.559227938*^9, 3.55922794115625*^9}, {3.55922857184375*^9, 
  3.559228575625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N1", "[", ".5", "]"}]], "Input",
 CellChangeTimes->{{3.559228774703125*^9, 3.559228777125*^9}}],

Cell[BoxData["0.0002166841889294286`"], "Output",
 CellChangeTimes->{3.559228778421875*^9, 3.5592288846875*^9, 
  3.5599237920625*^9, 3.55992382421875*^9, 3.5599685958125*^9, 
  3.560156140421875*^9, 3.5606837705625*^9, 3.560690120078125*^9, 
  3.5607543855*^9, 3.56075760315625*^9, 3.560758092140625*^9, 
  3.5607627783125*^9, 3.56076508590625*^9, 3.560788335359375*^9, 
  3.56113459728125*^9, 3.561728607640625*^9, 3.561790132453125*^9, 
  3.56198287903125*^9, 3.562046654484375*^9, 3.562069858140625*^9, 
  3.562354329078125*^9, 3.56235497509375*^9, 3.562466161768631*^9, 
  3.562961976453125*^9, 3.563086977046875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DR", "[", 
   RowBox[{"\[Lambda]_", ",", "\[Lambda]0_", ",", "AM_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Tan", "[", 
    RowBox[{"ZD", "[", "AM", "]"}], "]"}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"N1", "[", 
      RowBox[{"\[Lambda]0", "/", "1000"}], "]"}], "-", 
     RowBox[{"N1", "[", 
      RowBox[{"\[Lambda]", "/", "1000"}], "]"}]}], ")"}], " ", 
   "206264.8"}]}]], "Input",
 CellChangeTimes->{{3.559227153421875*^9, 3.55922723934375*^9}, {
  3.559229438578125*^9, 3.5592294713125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DR", "[", 
  RowBox[{"600", ",", "500", ",", "1.1"}], "]"}]], "Input",
 CellChangeTimes->{{3.559227244296875*^9, 3.55922726584375*^9}, {
  3.559227328703125*^9, 3.559227336546875*^9}, {3.559229458546875*^9, 
  3.559229482640625*^9}}],

Cell[BoxData["0.14651783271243268`"], "Output",
 CellChangeTimes->{{3.5592272623125*^9, 3.5592272669375*^9}, 
   3.559227338328125*^9, 3.5592275203125*^9, 3.559227576125*^9, {
   3.55922776771875*^9, 3.559227795828125*^9}, 3.55922787115625*^9, 
   3.559227951953125*^9, 3.559228519546875*^9, 3.559228602046875*^9, 
   3.55922874140625*^9, 3.55922889053125*^9, 3.55922934434375*^9, 
   3.55922948390625*^9, 3.559923792140625*^9, 3.559923824296875*^9, 
   3.55996859584375*^9, 3.560156140484375*^9, 3.560683770625*^9, 
   3.56069012009375*^9, 3.56075438553125*^9, 3.560757603203125*^9, 
   3.5607580921875*^9, 3.560762778375*^9, 3.56076508596875*^9, 
   3.560788335421875*^9, 3.561134597328125*^9, 3.56172860815625*^9, 
   3.561790132484375*^9, 3.5619828790625*^9, 3.5620466545*^9, 
   3.562069858171875*^9, 3.56235432909375*^9, 3.562354975125*^9, 
   3.562466161784256*^9, 3.562961976484375*^9, 3.563086977078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DR", "[", 
  RowBox[{"350", ",", "400", ",", "1.2"}], "]"}]], "Input",
 CellChangeTimes->{{3.5599696730625*^9, 3.5599696853125*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.35802396896175176`"}]], "Output",
 CellChangeTimes->{3.55996968678125*^9, 3.560156140546875*^9, 
  3.560683770671875*^9, 3.560690120109375*^9, 3.560754385546875*^9, 
  3.56075760325*^9, 3.560758092234375*^9, 3.5607627784375*^9, 
  3.560765086015625*^9, 3.56078833546875*^9, 3.561134597359375*^9, 
  3.5617286081875*^9, 3.5617901325*^9, 3.561982879078125*^9, 
  3.562046654515625*^9, 3.562069858203125*^9, 3.562354329109375*^9, 
  3.56235497515625*^9, 3.562466161799881*^9, 3.562961976515625*^9, 
  3.56308697709375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ADCloss", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "0.78", ",", 
    "\[IndentingNewLine]", "370", ",", ".863", ",", "\[IndentingNewLine]", 
    "400", ",", ".941", ",", "\[IndentingNewLine]", "450", ",", ".935", ",", 
    "\[IndentingNewLine]", "500", ",", ".931", ",", "\[IndentingNewLine]", 
    "550", ",", ".936", ",", "\[IndentingNewLine]", "600", ",", ".942", ",", 
    "\[IndentingNewLine]", "650", ",", ".946", ",", "\[IndentingNewLine]", 
    "700", ",", ".957", ",", "\[IndentingNewLine]", "750", ",", ".962", ",", 
    "\[IndentingNewLine]", "800", ",", ".966", ",", "\[IndentingNewLine]", 
    "850", ",", ".963", ",", "\[IndentingNewLine]", "900", ",", ".959", ",", 
    "\[IndentingNewLine]", "950", ",", ".955", ",", "\[IndentingNewLine]", 
    "1000", ",", ".951", ",", "\[IndentingNewLine]", "1050", ",", "0.947"}], 
   "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"last", " ", "number", " ", "0.947", " ", "estimated"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.559230911953125*^9, 3.559230993828125*^9}, {
   3.55923103521875*^9, 3.55923107059375*^9}, {3.559231114765625*^9, 
   3.559231258234375*^9}, 3.55997006240625*^9, {3.559970213921875*^9, 
   3.559970216875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"AMloss", "[", "\[Lambda]_", "]"}], ":=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "\[Lambda]", ",", "\[IndentingNewLine]", "350", ",", "0.595", ",", 
    "\[IndentingNewLine]", "370", ",", "0.614", ",", "\[IndentingNewLine]", 
    "400", ",", "0.679", ",", "\[IndentingNewLine]", "450", ",", "0.770", ",",
     "\[IndentingNewLine]", "500", ",", "0.824", ",", "\[IndentingNewLine]", 
    "550", ",", "0.846", ",", "\[IndentingNewLine]", "600", ",", "0.855", ",",
     "\[IndentingNewLine]", "650", ",", "0.883", ",", "\[IndentingNewLine]", 
    "700", ",", "0.917", ",", "\[IndentingNewLine]", "750", ",", "0.943", ",",
     "\[IndentingNewLine]", "800", ",", "0.963", ",", "\[IndentingNewLine]", 
    "850", ",", "0.976", ",", "\[IndentingNewLine]", "900", ",", "0.985", ",",
     "\[IndentingNewLine]", "950", ",", "0.991", ",", "\[IndentingNewLine]", 
    "1000", ",", "0.993"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.559231316546875*^9, 3.55923140784375*^9}, {
  3.559231925328125*^9, 3.559231999671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FAM", "[", "AM_", "]"}], ":=", 
  RowBox[{"Switch", "[", 
   RowBox[{
   "AM", ",", "\[IndentingNewLine]", "1.05", ",", "0.333", ",", 
    "\[IndentingNewLine]", "1.15", ",", "0.314", ",", "\[IndentingNewLine]", 
    "1.25", ",", "0.224", ",", "\[IndentingNewLine]", "1.35", ",", "0.09", 
    ",", "\[IndentingNewLine]", "1.45", ",", "0.024", ",", 
    "\[IndentingNewLine]", "1.55", ",", "0.01", ",", "\[IndentingNewLine]", 
    "1.65", ",", "0.001", ",", "\[IndentingNewLine]", "1.75", ",", "0.001", 
    ",", "\[IndentingNewLine]", "1.85", ",", "0.001", ",", 
    "\[IndentingNewLine]", "1.95", ",", "0", ",", "\[IndentingNewLine]", 
    "2.05", ",", "0"}], "]"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"deleted", " ", "2.05", " ", "field"}], ",", " ", 
    RowBox[{"special", " ", 
     RowBox[{"request", "!"}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.5592314550625*^9, 3.559231566203125*^9}, {
  3.559232890890625*^9, 3.55923293778125*^9}, {3.56000856196875*^9, 
  3.560008579765625*^9}, {3.56000866125*^9, 3.560008680296875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AppEffDR7", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "AM_", ",", "rapp_", ",", "Rg_"}], 
   "]"}], ":=", 
  RowBox[{"AppEffd", "[", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"MMEG2", "[", 
      RowBox[{
       RowBox[{"Rsee", "[", 
        RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
       RowBox[{"Ropt7", "[", "\[Lambda]", "]"}]}], "]"}], "]"}], ",", 
    RowBox[{"BetaMEG0", "[", 
     RowBox[{
      RowBox[{"Rsee", "[", 
       RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
      RowBox[{"Ropt7", "[", "\[Lambda]", "]"}]}], "]"}], ",", "rapp", ",", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"10", "/", "56.73"}], ")"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"DR", "[", 
        RowBox[{"\[Lambda]", ",", "\[Lambda]0", ",", "AM"}], "]"}], "^", 
       "2"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "includes", " ", "10", "um", " ", "decenering", " ", "added", " ", "in", 
    " ", "quadrature"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.55895471915625*^9, 3.55895475178125*^9}, {
   3.558955017828125*^9, 3.558955083421875*^9}, 3.558955118125*^9, {
   3.55895538559375*^9, 3.558955385984375*^9}, {3.55905034925*^9, 
   3.55905035415625*^9}, {3.55914137625*^9, 3.559141382625*^9}, {
   3.559145763234375*^9, 3.559145763375*^9}, {3.559145860984375*^9, 
   3.55914586134375*^9}, {3.55914745221875*^9, 3.55914745984375*^9}, {
   3.559148580625*^9, 3.559148591*^9}, {3.559229405796875*^9, 
   3.559229423671875*^9}, {3.5592294933125*^9, 3.5592295391875*^9}, 
   3.559229587421875*^9, {3.559229672125*^9, 3.55922967715625*^9}, {
   3.5599238639375*^9, 3.55992387090625*^9}, {3.559964292765625*^9, 
   3.5599643118125*^9}, {3.560007155203125*^9, 3.5600071675625*^9}, {
   3.56000731775*^9, 3.5600074231875*^9}, 3.560007470375*^9, {
   3.560157537328125*^9, 3.560157546015625*^9}, 3.56068383265625*^9, {
   3.560683900359375*^9, 3.5606839106875*^9}, {3.560684106515625*^9, 
   3.5606841075*^9}, {3.5606841646875*^9, 3.560684173484375*^9}, 
   3.560690346734375*^9, {3.56079325296875*^9, 3.560793273609375*^9}, {
   3.5611293971875*^9, 3.561129397359375*^9}, {3.5620470561875*^9, 
   3.56204705803125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"350", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047064453125*^9, 3.56204717275*^9}, 
   3.5620472345625*^9, 3.562047861984375*^9}],

Cell[BoxData["0.5835302712394034`"], "Output",
 CellChangeTimes->{3.562047137953125*^9, 3.56204717603125*^9, 
  3.5620472359375*^9, 3.562047898015625*^9, 3.56206985834375*^9, 
  3.562354342265625*^9, 3.56235497528125*^9, 3.562466161909256*^9, 
  3.562961976640625*^9, 3.563086977234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"370", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047187515625*^9, 3.56204723921875*^9}, 
   3.56204786284375*^9}],

Cell[BoxData["0.5968908653017866`"], "Output",
 CellChangeTimes->{{3.562047194390625*^9, 3.56204724021875*^9}, 
   3.56204789815625*^9, 3.562069858453125*^9, 3.562354354921875*^9, 
   3.562354975390625*^9, 3.562466162003006*^9, 3.56296197675*^9, 
   3.563086977359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"400", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047242203125*^9, 3.56204725971875*^9}, 
   3.56204786325*^9}],

Cell[BoxData["0.6169338822639072`"], "Output",
 CellChangeTimes->{{3.5620472443125*^9, 3.5620472610625*^9}, 
   3.56204789828125*^9, 3.562069858578125*^9, 3.562354367453125*^9, 
   3.562354975484375*^9, 3.562466162096756*^9, 3.562961976875*^9, 
   3.563086977453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"450", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56204724653125*^9, 3.56204726509375*^9}, 
   3.56204786346875*^9}],

Cell[BoxData["0.651058719642445`"], "Output",
 CellChangeTimes->{{3.562047248046875*^9, 3.562047265671875*^9}, 
   3.562047898390625*^9, 3.5620698586875*^9, 3.562354380109375*^9, 
   3.562354975578125*^9, 3.562466162190506*^9, 3.562961976984375*^9, 
   3.5630869775625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"500", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56204725096875*^9, 3.56204727296875*^9}, 
   3.56204786365625*^9}],

Cell[BoxData["0.6902529585845709`"], "Output",
 CellChangeTimes->{3.562047274515625*^9, 3.5620478985*^9, 3.5620698588125*^9, 
  3.56235439303125*^9, 3.562354975671875*^9, 3.562466162268631*^9, 
  3.56296197709375*^9, 3.563086977671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"550", ",", "550", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, 
   3.562047864171875*^9, {3.562141823375*^9, 3.5621418325*^9}, {
   3.562258892859375*^9, 3.56225889728125*^9}, 3.562467398393631*^9}],

Cell[BoxData["0.7134641179536461`"], "Output",
 CellChangeTimes->{3.56214183425*^9, 3.5622589020625*^9, 3.562354418609375*^9,
   3.56235497603125*^9, 3.562466162581131*^9, 3.562467444753006*^9, 
  3.562961977203125*^9, 3.56308697778125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"600", ",", "600", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, 
   3.562047864171875*^9, 3.562467401065506*^9}],

Cell[BoxData["0.7201199054161848`"], "Output",
 CellChangeTimes->{3.56204732153125*^9, 3.562047898859375*^9, 
  3.562069859125*^9, 3.562354418671875*^9, 3.56235497615625*^9, 
  3.562466162706131*^9, 3.562467444878006*^9, 3.562961977359375*^9, 
  3.563086977875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"650", ",", "650", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.562047343765625*^9}, 
   3.562047864359375*^9, 3.562467402893631*^9}],

Cell[BoxData["0.7267026007066887`"], "Output",
 CellChangeTimes->{{3.56204733903125*^9, 3.562047344953125*^9}, 
   3.5620478990625*^9, 3.562069859296875*^9, 3.56235441875*^9, 
   3.56235497628125*^9, 3.562466162831131*^9, 3.562467444987381*^9, 
   3.56296197746875*^9, 3.563086978*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"700", ",", "700", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204735103125*^9}, 
   3.5620478645625*^9, 3.562467404581131*^9}],

Cell[BoxData["0.7308545513222601`"], "Output",
 CellChangeTimes->{3.56204735175*^9, 3.562047899296875*^9, 
  3.562069859453125*^9, 3.5623544188125*^9, 3.562354976421875*^9, 
  3.562466162971756*^9, 3.562467445096756*^9, 3.562961977578125*^9, 
  3.563086978109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"750", ",", "750", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.5620473548125*^9, 3.562047358234375*^9}, 3.562047864828125*^9, 
   3.562467406253006*^9}],

Cell[BoxData["0.7338161857691281`"], "Output",
 CellChangeTimes->{3.56204735940625*^9, 3.5620478995*^9, 3.562069859609375*^9,
   3.562354418875*^9, 3.5623549765625*^9, 3.562466163096756*^9, 
  3.562467445206131*^9, 3.5629619776875*^9, 3.56308697821875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"800", ",", "800", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.56204736415625*^9, 3.56204736809375*^9}, 3.56204786509375*^9, 
   3.562467407940506*^9}],

Cell[BoxData["0.7369313399584778`"], "Output",
 CellChangeTimes->{3.562047369015625*^9, 3.56204789971875*^9, 
  3.562069859921875*^9, 3.5623544189375*^9, 3.562354976703125*^9, 
  3.562466163237381*^9, 3.562467445315506*^9, 3.562961977796875*^9, 
  3.563086978328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"850", ",", "850", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047379765625*^9, 3.56204738490625*^9}, 3.56204786534375*^9, 
   3.562467409581131*^9}],

Cell[BoxData["0.7354870679754242`"], "Output",
 CellChangeTimes->{3.562047386*^9, 3.562047899921875*^9, 3.562069860078125*^9,
   3.562354419*^9, 3.56235497684375*^9, 3.562466163362381*^9, 
  3.562467445456131*^9, 3.562961977921875*^9, 3.563086978421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"900", ",", "900", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, 3.5620478655625*^9, 
   3.562467411409256*^9}],

Cell[BoxData["0.7355506749929992`"], "Output",
 CellChangeTimes->{3.56204739390625*^9, 3.562047900125*^9, 
  3.56206986028125*^9, 3.5623544190625*^9, 3.562354976984375*^9, 
  3.562466163503006*^9, 3.562467445612381*^9, 3.56296197803125*^9, 
  3.56308697853125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"950", ",", "950", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047439765625*^9, 
   3.56204744321875*^9}, 3.562047865890625*^9, 3.562467414034256*^9}],

Cell[BoxData["0.7344012010651348`"], "Output",
 CellChangeTimes->{3.562047444484375*^9, 3.562047900359375*^9, 
  3.562069860453125*^9, 3.562354419125*^9, 3.562354977140625*^9, 
  3.562466163628006*^9, 3.562467445753006*^9, 3.562961978140625*^9, 
  3.563086978640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1000", ",", "1000", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047432296875*^9, 
   3.56204743528125*^9}, 3.562047866640625*^9, 3.562467416190506*^9}],

Cell[BoxData["0.7327743255777928`"], "Output",
 CellChangeTimes->{3.562047436265625*^9, 3.5620479005625*^9, 
  3.562069860609375*^9, 3.5623544191875*^9, 3.56235497728125*^9, 
  3.562466163753006*^9, 3.562467445924881*^9, 3.56296197825*^9, 
  3.563086978734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1050", ",", "1050", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.56204742615625*^9}, 3.562047867328125*^9, 
   3.562467419253006*^9}],

Cell[BoxData["0.7298850382115117`"], "Output",
 CellChangeTimes->{
  3.562047427765625*^9, 3.562047900796875*^9, 3.56206986078125*^9, 
   3.56235441925*^9, 3.562354977421875*^9, 3.562466163893631*^9, {
   3.562467427706131*^9, 3.562467446081131*^9}, 3.56296197840625*^9, 
   3.56308697884375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"550", ",", "550", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, 
   3.562047864171875*^9, {3.562141823375*^9, 3.5621418325*^9}, {
   3.562258892859375*^9, 3.56225889728125*^9}}],

Cell[BoxData["0.6125214138608001`"], "Output",
 CellChangeTimes->{3.56214183425*^9, 3.5622589020625*^9, 3.562354418609375*^9,
   3.56235497603125*^9, 3.562466162581131*^9, 3.562961978546875*^9, 
  3.563086978984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"600", ",", "600", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, 
   3.562047864171875*^9}],

Cell[BoxData["0.617937910464144`"], "Output",
 CellChangeTimes->{3.56204732153125*^9, 3.562047898859375*^9, 
  3.562069859125*^9, 3.562354418671875*^9, 3.56235497615625*^9, 
  3.562466162706131*^9, 3.56296197871875*^9, 3.563086979140625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"650", ",", "650", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.562047343765625*^9}, 
   3.562047864359375*^9}],

Cell[BoxData["0.6232971772060295`"], "Output",
 CellChangeTimes->{{3.56204733903125*^9, 3.562047344953125*^9}, 
   3.5620478990625*^9, 3.562069859296875*^9, 3.56235441875*^9, 
   3.56235497628125*^9, 3.562466162831131*^9, 3.562961978921875*^9, 
   3.56308697928125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"700", ",", "700", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204735103125*^9}, 
   3.5620478645625*^9}],

Cell[BoxData["0.6266625636292101`"], "Output",
 CellChangeTimes->{3.56204735175*^9, 3.562047899296875*^9, 
  3.562069859453125*^9, 3.5623544188125*^9, 3.562354976421875*^9, 
  3.562466162971756*^9, 3.562961979109375*^9, 3.5630869794375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"750", ",", "750", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.5620473548125*^9, 3.562047358234375*^9}, 3.562047864828125*^9}],

Cell[BoxData["0.6290368789170019`"], "Output",
 CellChangeTimes->{3.56204735940625*^9, 3.5620478995*^9, 3.562069859609375*^9,
   3.562354418875*^9, 3.5623549765625*^9, 3.562466163096756*^9, 
  3.562961979265625*^9, 3.56308697959375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"800", ",", "800", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.56204736415625*^9, 3.56204736809375*^9}, 3.56204786509375*^9}],

Cell[BoxData["0.6315488283848865`"], "Output",
 CellChangeTimes->{3.562047369015625*^9, 3.56204789971875*^9, 
  3.562069859921875*^9, 3.5623544189375*^9, 3.562354976703125*^9, 
  3.562466163237381*^9, 3.562961979484375*^9, 3.563086979734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"850", ",", "850", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047379765625*^9, 3.56204738490625*^9}, 3.56204786534375*^9}],

Cell[BoxData["0.6302861116070854`"], "Output",
 CellChangeTimes->{3.562047386*^9, 3.562047899921875*^9, 3.562069860078125*^9,
   3.562354419*^9, 3.56235497684375*^9, 3.562466163362381*^9, 
  3.562961979640625*^9, 3.563086979875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"900", ",", "900", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, 3.5620478655625*^9}],

Cell[BoxData["0.6302664206637468`"], "Output",
 CellChangeTimes->{3.56204739390625*^9, 3.562047900125*^9, 
  3.56206986028125*^9, 3.5623544190625*^9, 3.562354976984375*^9, 
  3.562466163503006*^9, 3.562961979796875*^9, 3.56308698003125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"950", ",", "950", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047439765625*^9, 
   3.56204744321875*^9}, 3.562047865890625*^9}],

Cell[BoxData["0.629227365534414`"], "Output",
 CellChangeTimes->{3.562047444484375*^9, 3.562047900359375*^9, 
  3.562069860453125*^9, 3.562354419125*^9, 3.562354977140625*^9, 
  3.562466163628006*^9, 3.562961979953125*^9, 3.5630869801875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1000", ",", "1000", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047432296875*^9, 
   3.56204743528125*^9}, 3.562047866640625*^9}],

Cell[BoxData["0.6278173248856556`"], "Output",
 CellChangeTimes->{3.562047436265625*^9, 3.5620479005625*^9, 
  3.562069860609375*^9, 3.5623544191875*^9, 3.56235497728125*^9, 
  3.562466163753006*^9, 3.56296198009375*^9, 3.56308698034375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1050", ",", "1050", ",", "1.0", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.56204742615625*^9}, 3.562047867328125*^9}],

Cell[BoxData["0.6253672325178768`"], "Output",
 CellChangeTimes->{3.562047427765625*^9, 3.562047900796875*^9, 
  3.56206986078125*^9, 3.56235441925*^9, 3.562354977421875*^9, 
  3.562466163893631*^9, 3.56296198025*^9, 3.563086980484375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"now", " ", "try", " ", "1.8", " ", "fibers"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.562047487296875*^9, 3.56204751471875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"350", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047553421875*^9, 3.56204755721875*^9}, 
   3.562047867828125*^9}],

Cell[BoxData["0.6758188242886967`"], "Output",
 CellChangeTimes->{3.562047558046875*^9, 3.562047900984375*^9, 
  3.562069860953125*^9, 3.562354429046875*^9, 3.562354977515625*^9, 
  3.562466163987381*^9, 3.562961980390625*^9, 3.56308698059375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"370", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047187515625*^9, 3.56204723921875*^9}, {
   3.562047561546875*^9, 3.56204756196875*^9}, 3.5620478681875*^9}],

Cell[BoxData["0.6886815032550907`"], "Output",
 CellChangeTimes->{{3.562047194390625*^9, 3.56204724021875*^9}, 
   3.562047563046875*^9, 3.562047901140625*^9, 3.5620698610625*^9, 
   3.5623544388125*^9, 3.562354977609375*^9, 3.562466164081131*^9, 
   3.5629619805*^9, 3.5630869806875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"400", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047242203125*^9, 3.56204725971875*^9}, {
   3.562047565953125*^9, 3.56204756634375*^9}, 3.56204786840625*^9}],

Cell[BoxData["0.7076843794380617`"], "Output",
 CellChangeTimes->{{3.5620472443125*^9, 3.5620472610625*^9}, 
   3.562047567578125*^9, 3.56204790128125*^9, 3.562069861171875*^9, 
   3.5623544491875*^9, 3.5623549776875*^9, 3.562466164159256*^9, 
   3.562961980609375*^9, 3.56308698078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"450", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56204724653125*^9, 3.56204726509375*^9}, {
   3.56204757078125*^9, 3.562047571265625*^9}, 3.56204786865625*^9}],

Cell[BoxData["0.7391884367099745`"], "Output",
 CellChangeTimes->{{3.562047248046875*^9, 3.562047265671875*^9}, 
   3.562047572546875*^9, 3.56204790146875*^9, 3.562069861328125*^9, 
   3.56235445915625*^9, 3.56235497778125*^9, 3.562466164253006*^9, 
   3.562961980703125*^9, 3.563086980875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"500", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56204725096875*^9, 3.56204727296875*^9}, {
   3.562047575359375*^9, 3.562047575671875*^9}, 3.562047868984375*^9}],

Cell[BoxData["0.7739161077504529`"], "Output",
 CellChangeTimes->{3.562047274515625*^9, 3.56204757678125*^9, 
  3.562047901625*^9, 3.5620698614375*^9, 3.5623544689375*^9, 
  3.562354977875*^9, 3.562466164331131*^9, 3.5629619808125*^9, 
  3.563086980984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"550", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047278265625*^9, 3.562047281328125*^9}, {
   3.56204757965625*^9, 3.562047580046875*^9}, 3.56204786940625*^9}],

Cell[BoxData["0.7939790107378046`"], "Output",
 CellChangeTimes->{3.56204728190625*^9, 3.562047581328125*^9, 
  3.56204790178125*^9, 3.562069861546875*^9, 3.562354478703125*^9, 
  3.562354977953125*^9, 3.562466164409256*^9, 3.56296198090625*^9, 
  3.5630869810625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"600", ",", "410", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562258987421875*^9, 3.562258987953125*^9}}],

Cell[BoxData["0.8000017716808832`"], "Output",
 CellChangeTimes->{3.5622597416875*^9, 3.562354488671875*^9, 
  3.56235497803125*^9, 3.562466164487381*^9, 3.562961981*^9, 
  3.5630869811875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"650", ",", "650", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.562047343765625*^9}, {
   3.56204758978125*^9, 3.56204759009375*^9}, 3.562047870328125*^9, {
   3.562465786081131*^9, 3.562465787440506*^9}}],

Cell[BoxData["0.8058837716570018`"], "Output",
 CellChangeTimes->{{3.56204733903125*^9, 3.562047344953125*^9}, 
   3.562047591125*^9, 3.56204790215625*^9, 3.562069861859375*^9, 
   3.562354488875*^9, 3.5623549784375*^9, 3.562466164565506*^9, 
   3.56296198109375*^9, 3.56308698128125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"700", ",", "700", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204735103125*^9}, {
   3.5620475939375*^9, 3.56204759428125*^9}, 3.562047870703125*^9, {
   3.562465790143631*^9, 3.562465790987381*^9}}],

Cell[BoxData["0.8097168955329757`"], "Output",
 CellChangeTimes->{3.56204735175*^9, 3.562047595765625*^9, 
  3.562047902359375*^9, 3.562069862015625*^9, 3.5623544889375*^9, 
  3.5623549785625*^9, 3.562466164643631*^9, 3.562961981203125*^9, 
  3.563086981359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"750", ",", "750", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.5620473548125*^9, 3.562047358234375*^9}, {3.562047598921875*^9, 
   3.5620475994375*^9}, 3.562047871328125*^9, {3.562465792815506*^9, 
   3.562465793549881*^9}}],

Cell[BoxData["0.8125372383985838`"], "Output",
 CellChangeTimes->{3.56204735940625*^9, 3.5620476005*^9, 3.562047902578125*^9,
   3.56206986215625*^9, 3.562354489*^9, 3.5623549786875*^9, 
  3.562466164721756*^9, 3.562961981296875*^9, 3.563086981453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"800", ",", "800", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.56204736415625*^9, 3.56204736809375*^9}, {3.5620476034375*^9, 
   3.562047603796875*^9}, 3.562047871890625*^9, {3.562465795424881*^9, 
   3.562465796049881*^9}}],

Cell[BoxData["0.8154451471205904`"], "Output",
 CellChangeTimes->{3.562047369015625*^9, 3.5620476048125*^9, 
  3.56204790278125*^9, 3.5620698623125*^9, 3.5623544890625*^9, 
  3.562354978828125*^9, 3.562466164799881*^9, 3.562961981421875*^9, 
  3.563086981578125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"850", ",", "850", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047379765625*^9, 3.56204738490625*^9}, {3.562047607453125*^9, 
   3.562047607859375*^9}, 3.56204787240625*^9, {3.562465798096756*^9, 
   3.562465798737381*^9}}],

Cell[BoxData["0.8146271095801889`"], "Output",
 CellChangeTimes->{3.562047386*^9, 3.562047608890625*^9, 3.562047902984375*^9,
   3.562069862546875*^9, 3.562354489125*^9, 3.56235497896875*^9, 
  3.562466164878006*^9, 3.562961981515625*^9, 3.563086981671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"900", ",", "900", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047611546875*^9, 
   3.56204761184375*^9}, 3.562047872875*^9, {3.562465800518631*^9, 
   3.562465801128006*^9}}],

Cell[BoxData["0.8150041496507073`"], "Output",
 CellChangeTimes->{3.56204739390625*^9, 3.5620476129375*^9, 
  3.562047903171875*^9, 3.562069862734375*^9, 3.562354489171875*^9, 
  3.56235497909375*^9, 3.562466164956131*^9, 3.562961981625*^9, 
  3.563086981765625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"950", ",", "950", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047439765625*^9, 
   3.56204744321875*^9}, {3.562047615515625*^9, 3.562047615796875*^9}, 
   3.562047873390625*^9, {3.562465804346756*^9, 3.562465804940506*^9}}],

Cell[BoxData["0.8143681907774102`"], "Output",
 CellChangeTimes->{3.562047444484375*^9, 3.56204761646875*^9, 
  3.562047903375*^9, 3.562069862890625*^9, 3.562354489234375*^9, 
  3.56235497925*^9, 3.562466165034256*^9, 3.56296198171875*^9, 
  3.563086981859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1000", ",", "1000", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047432296875*^9, 
   3.56204743528125*^9}, {3.562047618984375*^9, 3.56204761925*^9}, 
   3.56204787403125*^9, {3.562465806862381*^9, 3.562465807565506*^9}}],

Cell[BoxData["0.8133159228490803`"], "Output",
 CellChangeTimes->{3.562047436265625*^9, 3.56204762003125*^9, 
  3.56204790359375*^9, 3.56206986303125*^9, 3.562354489296875*^9, 
  3.562354979375*^9, 3.562466165112381*^9, 3.5629619818125*^9, 
  3.563086981953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1050", ",", "1050", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.56204742615625*^9}, {3.562047622828125*^9, 
   3.56204762309375*^9}, 3.562047874546875*^9, {3.562465810346756*^9, 
   3.562465811174881*^9}}],

Cell[BoxData["0.8111993165169642`"], "Output",
 CellChangeTimes->{3.562047427765625*^9, 3.5620476236875*^9, 
  3.562047903796875*^9, 3.5620698631875*^9, 3.562354489359375*^9, 
  3.562354979515625*^9, 3.562466165206131*^9, 3.562961981921875*^9, 
  3.5630869820625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"550", ",", "550", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047584875*^9, 3.562047585265625*^9}, 3.562047869859375*^9, {
   3.562141873546875*^9, 3.56214187753125*^9}}],

Cell[BoxData["0.7031227075872789`"], "Output",
 CellChangeTimes->{3.562141878609375*^9, 3.56235448875*^9, 3.5623549781875*^9,
   3.562466165315506*^9, 3.5629619820625*^9, 3.5630869821875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"600", ",", "600", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047584875*^9, 3.562047585265625*^9}, 3.562047869859375*^9}],

Cell[BoxData["0.7084269753646381`"], "Output",
 CellChangeTimes->{3.56204732153125*^9, 3.562047586703125*^9, 
  3.56204790196875*^9, 3.562069861703125*^9, 3.5623544888125*^9, 
  3.5623549783125*^9, 3.562466165440506*^9, 3.562961982203125*^9, 
  3.56308698234375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"650", ",", "650", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.562047343765625*^9}, {
   3.56204758978125*^9, 3.56204759009375*^9}, 3.562047870328125*^9}],

Cell[BoxData["0.7136289793531974`"], "Output",
 CellChangeTimes->{{3.56204733903125*^9, 3.562047344953125*^9}, 
   3.562047591125*^9, 3.56204790215625*^9, 3.562069861859375*^9, 
   3.562354488875*^9, 3.5623549784375*^9, 3.562466165549881*^9, 
   3.562961982328125*^9, 3.563086982484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"700", ",", "700", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204735103125*^9}, {
   3.5620475939375*^9, 3.56204759428125*^9}, 3.562047870703125*^9}],

Cell[BoxData["0.7169713812933177`"], "Output",
 CellChangeTimes->{3.56204735175*^9, 3.562047595765625*^9, 
  3.562047902359375*^9, 3.562069862015625*^9, 3.5623544889375*^9, 
  3.5623549785625*^9, 3.562466165674881*^9, 3.562961982515625*^9, 
  3.563086982625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"750", ",", "750", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.5620473548125*^9, 3.562047358234375*^9}, {3.562047598921875*^9, 
   3.5620475994375*^9}, 3.562047871328125*^9}],

Cell[BoxData["0.7193843978922143`"], "Output",
 CellChangeTimes->{3.56204735940625*^9, 3.5620476005*^9, 3.562047902578125*^9,
   3.56206986215625*^9, 3.562354489*^9, 3.5623549786875*^9, 
  3.562466165799881*^9, 3.56296198265625*^9, 3.563086982765625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"800", ",", "800", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.56204736415625*^9, 3.56204736809375*^9}, {3.5620476034375*^9, 
   3.562047603796875*^9}, 3.562047871890625*^9}],

Cell[BoxData["0.7218972237540834`"], "Output",
 CellChangeTimes->{3.562047369015625*^9, 3.5620476048125*^9, 
  3.56204790278125*^9, 3.5620698623125*^9, 3.5623544890625*^9, 
  3.562354978828125*^9, 3.562466165924881*^9, 3.562961982796875*^9, 
  3.56308698290625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"850", ",", "850", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047379765625*^9, 3.56204738490625*^9}, {3.562047607453125*^9, 
   3.562047607859375*^9}, 3.56204787240625*^9}],

Cell[BoxData["0.7209611038580823`"], "Output",
 CellChangeTimes->{3.562047386*^9, 3.562047608890625*^9, 3.562047902984375*^9,
   3.562069862546875*^9, 3.562354489125*^9, 3.56235497896875*^9, 
  3.562466166065506*^9, 3.5629619829375*^9, 3.563086983046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"900", ",", "900", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047611546875*^9, 
   3.56204761184375*^9}, 3.562047872875*^9}],

Cell[BoxData["0.7211371879908054`"], "Output",
 CellChangeTimes->{3.56204739390625*^9, 3.5620476129375*^9, 
  3.562047903171875*^9, 3.562069862734375*^9, 3.562354489171875*^9, 
  3.56235497909375*^9, 3.562466166190506*^9, 3.56296198309375*^9, 
  3.5630869831875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"950", ",", "950", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047439765625*^9, 
   3.56204744321875*^9}, {3.562047615515625*^9, 3.562047615796875*^9}, 
   3.562047873390625*^9}],

Cell[BoxData["0.7203707445411367`"], "Output",
 CellChangeTimes->{3.562047444484375*^9, 3.56204761646875*^9, 
  3.562047903375*^9, 3.562069862890625*^9, 3.562354489234375*^9, 
  3.56235497925*^9, 3.562466166315506*^9, 3.562961983234375*^9, 
  3.563086983328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1000", ",", "1000", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047432296875*^9, 
   3.56204743528125*^9}, {3.562047618984375*^9, 3.56204761925*^9}, 
   3.56204787403125*^9}],

Cell[BoxData["0.7192455036999797`"], "Output",
 CellChangeTimes->{3.562047436265625*^9, 3.56204762003125*^9, 
  3.56204790359375*^9, 3.56206986303125*^9, 3.562354489296875*^9, 
  3.562354979375*^9, 3.562466166440506*^9, 3.562961983375*^9, 3.5630869835*^9}
  ]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1050", ",", "1050", ",", "1.0", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.56204742615625*^9}, {3.562047622828125*^9, 
   3.56204762309375*^9}, 3.562047874546875*^9}],

Cell[BoxData["0.7171505633527967`"], "Output",
 CellChangeTimes->{3.562047427765625*^9, 3.5620476236875*^9, 
  3.562047903796875*^9, 3.5620698631875*^9, 3.562354489359375*^9, 
  3.562354979515625*^9, 3.562466166565506*^9, 3.562961983546875*^9, 
  3.563086983640625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"now", " ", "AM"}], "=", "1.2"}], " ", "*)"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.562048879875*^9, 3.562048888140625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"350", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047064453125*^9, 3.56204717275*^9}, 
   3.5620472345625*^9, 3.562047861984375*^9, 3.562048826953125*^9}],

Cell[BoxData["0.46558543447210154`"], "Output",
 CellChangeTimes->{3.562047137953125*^9, 3.56204717603125*^9, 
  3.5620472359375*^9, 3.562047898015625*^9, 3.56204890890625*^9, 
  3.562069863296875*^9, 3.562354499859375*^9, 3.562354979625*^9, 
  3.562466166659256*^9, 3.562961983671875*^9, 3.56308698375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"370", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047187515625*^9, 3.56204723921875*^9}, 
   3.56204786284375*^9, 3.562048832046875*^9}],

Cell[BoxData["0.5244146644086038`"], "Output",
 CellChangeTimes->{{3.562047194390625*^9, 3.56204724021875*^9}, 
   3.56204789815625*^9, 3.562048909140625*^9, 3.56206986340625*^9, 
   3.56235451009375*^9, 3.56235497971875*^9, 3.562466166753006*^9, 
   3.56296198378125*^9, 3.563086983859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"400", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047242203125*^9, 3.56204725971875*^9}, 
   3.56204786325*^9, 3.56204883228125*^9}],

Cell[BoxData["0.572207313090736`"], "Output",
 CellChangeTimes->{{3.5620472443125*^9, 3.5620472610625*^9}, 
   3.56204789828125*^9, 3.56204890925*^9, 3.562069863546875*^9, 
   3.562354523421875*^9, 3.562354979828125*^9, 3.562466166846756*^9, 
   3.562961983890625*^9, 3.56308698396875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"450", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56204724653125*^9, 3.56204726509375*^9}, 
   3.56204786346875*^9, 3.562048832453125*^9}],

Cell[BoxData["0.5873817640984078`"], "Output",
 CellChangeTimes->{{3.562047248046875*^9, 3.562047265671875*^9}, 
   3.562047898390625*^9, 3.562048909359375*^9, 3.562069863671875*^9, 
   3.562354533859375*^9, 3.562354979921875*^9, 3.562466166940506*^9, 
   3.562961984015625*^9, 3.563086984078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"500", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56204725096875*^9, 3.56204727296875*^9}, 
   3.56204786365625*^9, 3.562048832640625*^9}],

Cell[BoxData["0.5710422113101079`"], "Output",
 CellChangeTimes->{3.562047274515625*^9, 3.5620478985*^9, 3.56204890946875*^9,
   3.56206986378125*^9, 3.5623545445*^9, 3.562354980015625*^9, 
  3.562466167034256*^9, 3.562961984109375*^9, 3.563086984171875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"550", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047278265625*^9, 3.562047281328125*^9}, 
   3.562047863859375*^9, 3.5620488328125*^9}],

Cell[BoxData["0.5322961520220485`"], "Output",
 CellChangeTimes->{3.56204728190625*^9, 3.562047898625*^9, 3.5620489095625*^9,
   3.562069863875*^9, 3.56235455578125*^9, 3.562354980109375*^9, 
  3.562466167112381*^9, 3.56296198421875*^9, 3.56308698428125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"600", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562259786796875*^9, 3.562259788875*^9}}],

Cell[BoxData["0.4849738259705921`"], "Output",
 CellChangeTimes->{3.5622597945*^9, 3.56235457*^9, 3.56235498021875*^9, 
  3.562466167206131*^9, 3.562961984328125*^9, 3.563086984390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"550", ",", "550", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, 
   3.562047864171875*^9, 3.562048832984375*^9, {3.562141909953125*^9, 
   3.562141912671875*^9}}],

Cell[BoxData["0.5736543232826857`"], "Output",
 CellChangeTimes->{3.56214191384375*^9, 3.562354577859375*^9, 
  3.56235498034375*^9, 3.562466167331131*^9, 3.562961984453125*^9, 
  3.5630869845625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"600", ",", "600", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, 
   3.562047864171875*^9, 3.562048832984375*^9}],

Cell[BoxData["0.5792480800715952`"], "Output",
 CellChangeTimes->{3.56204732153125*^9, 3.562047898859375*^9, 
  3.562048909703125*^9, 3.562069864015625*^9, 3.56235458078125*^9, 
  3.56235498046875*^9, 3.562466167440506*^9, 3.562961984625*^9, 
  3.563086984703125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"650", ",", "650", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.562047343765625*^9}, 
   3.562047864359375*^9, 3.562048833171875*^9}],

Cell[BoxData["0.5850390042961165`"], "Output",
 CellChangeTimes->{{3.56204733903125*^9, 3.562047344953125*^9}, 
   3.5620478990625*^9, 3.56204890984375*^9, 3.56206986415625*^9, 
   3.56235458153125*^9, 3.562354980578125*^9, 3.562466167549881*^9, 
   3.56296198475*^9, 3.563086984859375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"700", ",", "700", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204735103125*^9}, 
   3.5620478645625*^9, 3.56204883334375*^9}],

Cell[BoxData["0.5889423245110739`"], "Output",
 CellChangeTimes->{3.56204735175*^9, 3.562047899296875*^9, 
  3.562048909984375*^9, 3.562069864296875*^9, 3.56235458171875*^9, 
  3.562354980703125*^9, 3.562466167659256*^9, 3.562961984890625*^9, 
  3.563086985015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"750", ",", "750", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.5620473548125*^9, 3.562047358234375*^9}, 3.562047864828125*^9, 
   3.5620488335*^9}],

Cell[BoxData["0.5922315213072268`"], "Output",
 CellChangeTimes->{3.56204735940625*^9, 3.5620478995*^9, 3.562048910171875*^9,
   3.562069864453125*^9, 3.562354582*^9, 3.562354980828125*^9, 
  3.562466167784256*^9, 3.56296198503125*^9, 3.563086985171875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"800", ",", "800", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.56204736415625*^9, 3.56204736809375*^9}, 3.56204786509375*^9, 
   3.56204883365625*^9}],

Cell[BoxData["0.5952468016792739`"], "Output",
 CellChangeTimes->{3.562047369015625*^9, 3.56204789971875*^9, 
  3.5620489103125*^9, 3.562069864625*^9, 3.562354583921875*^9, 
  3.562354980953125*^9, 3.562466167909256*^9, 3.562961985171875*^9, 
  3.56308698534375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"850", ",", "850", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047379765625*^9, 3.56204738490625*^9}, 3.56204786534375*^9, 
   3.56204883384375*^9}],

Cell[BoxData["0.5947594109381266`"], "Output",
 CellChangeTimes->{3.562047386*^9, 3.562047899921875*^9, 3.56204891046875*^9, 
  3.56206986478125*^9, 3.562354584453125*^9, 3.562354981078125*^9, 
  3.562466168034256*^9, 3.5629619853125*^9, 3.563086985515625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{",", 
  RowBox[{"[", 
   RowBox[{"900", ",", "900", ",", "1.2", ",", 
    RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, 3.5620478655625*^9, 
   3.562048834015625*^9, 3.562607232546875*^9},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"950", ",", "950", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047439765625*^9, 
   3.56204744321875*^9}, 3.562047865890625*^9, 3.5620488341875*^9}],

Cell[BoxData["0.5949966310480762`"], "Output",
 CellChangeTimes->{3.562047444484375*^9, 3.562047900359375*^9, 
  3.562048910765625*^9, 3.56206986509375*^9, 3.56235458503125*^9, 
  3.562354981375*^9, 3.562466168299881*^9, 3.562961986046875*^9, 
  3.563086986515625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1000", ",", "1000", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047432296875*^9, 
   3.56204743528125*^9}, 3.562047866640625*^9, 3.562048834359375*^9}],

Cell[BoxData["0.5942334184351112`"], "Output",
 CellChangeTimes->{3.562047436265625*^9, 3.5620479005625*^9, 
  3.562048910921875*^9, 3.56206986528125*^9, 3.562354586328125*^9, 
  3.5623549815*^9, 3.562466168424881*^9, 3.562961986203125*^9, 
  3.563086986671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1050", ",", "1050", ",", "1.2", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.56204742615625*^9}, 3.562047867328125*^9, 
   3.5620488345625*^9}],

Cell[BoxData["0.5924917446636162`"], "Output",
 CellChangeTimes->{3.562047427765625*^9, 3.562047900796875*^9, 
  3.5620489110625*^9, 3.5620698654375*^9, 3.5623545901875*^9, 
  3.562354981640625*^9, 3.562466168549881*^9, 3.562961986359375*^9, 
  3.56308698684375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"now", " ", "try", " ", "1.8", " ", "fibers"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.562047487296875*^9, 3.56204751471875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"350", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047553421875*^9, 3.56204755721875*^9}, 
   3.562047867828125*^9, 3.562048834734375*^9}],

Cell[BoxData["0.5588015018562561`"], "Output",
 CellChangeTimes->{3.562047558046875*^9, 3.562047900984375*^9, 
  3.56204891121875*^9, 3.562069865546875*^9, 3.562354600296875*^9, 
  3.562354981734375*^9, 3.562466168659256*^9, 3.56296198646875*^9, 
  3.563086986953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"370", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047187515625*^9, 3.56204723921875*^9}, {
   3.562047561546875*^9, 3.56204756196875*^9}, 3.5620478681875*^9, 
   3.56204883490625*^9}],

Cell[BoxData["0.6172644326027614`"], "Output",
 CellChangeTimes->{{3.562047194390625*^9, 3.56204724021875*^9}, 
   3.562047563046875*^9, 3.562047901140625*^9, 3.562048911328125*^9, 
   3.5620698656875*^9, 3.562354981828125*^9, 3.562466168753006*^9, 
   3.562961986578125*^9, 3.5630869870625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"400", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047242203125*^9, 3.56204725971875*^9}, {
   3.562047565953125*^9, 3.56204756634375*^9}, 3.56204786840625*^9, 
   3.56204883515625*^9}],

Cell[BoxData["0.663338356832899`"], "Output",
 CellChangeTimes->{{3.5620472443125*^9, 3.5620472610625*^9}, 
   3.562047567578125*^9, 3.56204790128125*^9, 3.56204891146875*^9, 
   3.562069865796875*^9, 3.5623549819375*^9, 3.562466168846756*^9, 
   3.5629619866875*^9, 3.5630869871875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"450", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56204724653125*^9, 3.56204726509375*^9}, {
   3.56204757078125*^9, 3.562047571265625*^9}, 3.56204786865625*^9, 
   3.56204883534375*^9}],

Cell[BoxData["0.6787495485599462`"], "Output",
 CellChangeTimes->{{3.562047248046875*^9, 3.562047265671875*^9}, 
   3.562047572546875*^9, 3.56204790146875*^9, 3.562048911578125*^9, 
   3.56206986590625*^9, 3.562354982046875*^9, 3.562466168940506*^9, 
   3.562961986796875*^9, 3.5630869873125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"500", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.56204725096875*^9, 3.56204727296875*^9}, {
   3.562047575359375*^9, 3.562047575671875*^9}, 3.562047868984375*^9, 
   3.56204883559375*^9}],

Cell[BoxData["0.6661512749460352`"], "Output",
 CellChangeTimes->{3.562047274515625*^9, 3.56204757678125*^9, 
  3.562047901625*^9, 3.5620489116875*^9, 3.562069866015625*^9, 
  3.56235498215625*^9, 3.562466169018631*^9, 3.56296198690625*^9, 
  3.5630869874375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"550", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047278265625*^9, 3.562047281328125*^9}, {
   3.56204757965625*^9, 3.562047580046875*^9}, 3.56204786940625*^9, 
   3.56204883584375*^9}],

Cell[BoxData["0.6327356613415457`"], "Output",
 CellChangeTimes->{3.56204728190625*^9, 3.562047581328125*^9, 
  3.56204790178125*^9, 3.562048911796875*^9, 3.562069866140625*^9, 
  3.562354982265625*^9, 3.562466169112381*^9, 3.562961987015625*^9, 
  3.563086987546875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"600", ",", "410", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.562259807921875*^9, 3.562259808609375*^9}}],

Cell[BoxData["0.5890629077212838`"], "Output",
 CellChangeTimes->{3.562268995640625*^9, 3.56235498240625*^9, 
  3.562466169221756*^9, 3.56296198715625*^9, 3.56308698765625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"550", ",", "550", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047584875*^9, 3.562047585265625*^9}, 3.562047869859375*^9, 
   3.5620488360625*^9, {3.56214195090625*^9, 3.562141953953125*^9}}],

Cell[BoxData["0.6646903003685526`"], "Output",
 CellChangeTimes->{3.56214195465625*^9, 3.56235498253125*^9, 
  3.562466169331131*^9, 3.56296198728125*^9, 3.563086987796875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"600", ",", "600", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047584875*^9, 3.562047585265625*^9}, 3.562047869859375*^9, 
   3.5620488360625*^9}],

Cell[BoxData["0.6703586159433609`"], "Output",
 CellChangeTimes->{3.56204732153125*^9, 3.562047586703125*^9, 
  3.56204790196875*^9, 3.5620489119375*^9, 3.562069866265625*^9, 
  3.56235498265625*^9, 3.562466169440506*^9, 3.56296198740625*^9, 
  3.563086987953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"650", ",", "650", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.562047343765625*^9}, {
   3.56204758978125*^9, 3.56204759009375*^9}, 3.562047870328125*^9, 
   3.562048836359375*^9}],

Cell[BoxData["0.6761280651413155`"], "Output",
 CellChangeTimes->{{3.56204733903125*^9, 3.562047344953125*^9}, 
   3.562047591125*^9, 3.56204790215625*^9, 3.5620489120625*^9, 
   3.56206986640625*^9, 3.56235498278125*^9, 3.562466169549881*^9, 
   3.562961987546875*^9, 3.563086988078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"700", ",", "700", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204735103125*^9}, {
   3.5620475939375*^9, 3.56204759428125*^9}, 3.562047870703125*^9, 
   3.562048836703125*^9}],

Cell[BoxData["0.6800806647642212`"], "Output",
 CellChangeTimes->{3.56204735175*^9, 3.562047595765625*^9, 
  3.562047902359375*^9, 3.562048912203125*^9, 3.56206986653125*^9, 
  3.56235498290625*^9, 3.562466169659256*^9, 3.562961987671875*^9, 
  3.56308698821875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"750", ",", "750", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.5620473548125*^9, 3.562047358234375*^9}, {3.562047598921875*^9, 
   3.5620475994375*^9}, 3.562047871328125*^9, 3.562048836953125*^9}],

Cell[BoxData["0.6833848488764631`"], "Output",
 CellChangeTimes->{3.56204735940625*^9, 3.5620476005*^9, 3.562047902578125*^9,
   3.562048912375*^9, 3.562069866671875*^9, 3.56235498303125*^9, 
  3.562466169768631*^9, 3.562961987796875*^9, 3.563086988359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"800", ",", "800", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.56204736415625*^9, 3.56204736809375*^9}, {3.5620476034375*^9, 
   3.562047603796875*^9}, 3.562047871890625*^9, 3.56204883725*^9}],

Cell[BoxData["0.6864467368919207`"], "Output",
 CellChangeTimes->{3.562047369015625*^9, 3.5620476048125*^9, 
  3.56204790278125*^9, 3.562048912515625*^9, 3.562069866859375*^9, 
  3.562354983171875*^9, 3.562466169893631*^9, 3.5629619879375*^9, 
  3.5630869885*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"850", ",", "850", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047379765625*^9, 3.56204738490625*^9}, {3.562047607453125*^9, 
   3.562047607859375*^9}, 3.56204787240625*^9, 3.5620488375625*^9}],

Cell[BoxData["0.6862119200465933`"], "Output",
 CellChangeTimes->{3.562047386*^9, 3.562047608890625*^9, 3.562047902984375*^9,
   3.56204891265625*^9, 3.562069867*^9, 3.5623549833125*^9, 
  3.562466170003006*^9, 3.562961988078125*^9, 3.563086988640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"900", ",", "900", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047611546875*^9, 
   3.56204761184375*^9}, 3.562047872875*^9, 3.562048837984375*^9}],

Cell[BoxData["0.6869766226960118`"], "Output",
 CellChangeTimes->{3.56204739390625*^9, 3.5620476129375*^9, 
  3.562047903171875*^9, 3.562048912796875*^9, 3.56206986715625*^9, 
  3.56235498346875*^9, 3.562466170128006*^9, 3.562961988234375*^9, 
  3.56308698878125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"950", ",", "950", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047439765625*^9, 
   3.56204744321875*^9}, {3.562047615515625*^9, 3.562047615796875*^9}, 
   3.562047873390625*^9, 3.562048838359375*^9}],

Cell[BoxData["0.6868271209994823`"], "Output",
 CellChangeTimes->{3.562047444484375*^9, 3.56204761646875*^9, 
  3.562047903375*^9, 3.5620489129375*^9, 3.562069867296875*^9, 
  3.562354983609375*^9, 3.562466170253006*^9, 3.562961988375*^9, 
  3.563086988921875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1000", ",", "1000", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.562047393109375*^9}, {3.562047432296875*^9, 
   3.56204743528125*^9}, {3.562047618984375*^9, 3.56204761925*^9}, 
   3.56204787403125*^9, 3.562048838859375*^9}],

Cell[BoxData["0.6862856626266214`"], "Output",
 CellChangeTimes->{3.562047436265625*^9, 3.56204762003125*^9, 
  3.56204790359375*^9, 3.562048913078125*^9, 3.56206986753125*^9, 
  3.56235498375*^9, 3.562466170378006*^9, 3.562961988515625*^9, 
  3.563086989109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AppEffDR7", "[", 
  RowBox[{"1050", ",", "1050", ",", "1.2", ",", 
   RowBox[{"1.8", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562047313171875*^9, 3.56204732009375*^9}, {
   3.562047389515625*^9, 3.56204742615625*^9}, {3.562047622828125*^9, 
   3.56204762309375*^9}, 3.562047874546875*^9, 3.5620488393125*^9}],

Cell[BoxData["0.6848075788691181`"], "Output",
 CellChangeTimes->{3.562047427765625*^9, 3.5620476236875*^9, 
  3.562047903796875*^9, 3.562048913234375*^9, 3.562069867671875*^9, 
  3.562354983890625*^9, 3.562466170503006*^9, 3.56296198865625*^9, 
  3.56308698925*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SSpeed7", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "AM_", ",", "rapp_", ",", "Rg_"}], 
   "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"AMloss", "[", "\[Lambda]", "]"}], "^", "AM"}], 
      RowBox[{
       RowBox[{"AppEffDR7", "[", 
        RowBox[{
        "\[Lambda]", ",", "\[Lambda]0", ",", "AM", ",", "rapp", ",", "Rg"}], 
        "]"}], "/", "rapp"}]}], ")"}], "^", "2"}], "  ", "/", 
   "AM"}]}]], "Input",
 CellChangeTimes->{{3.559232078546875*^9, 3.559232116265625*^9}, 
   3.559964311640625*^9, {3.56000758303125*^9, 3.56000759025*^9}, {
   3.56000796128125*^9, 3.5600079731875*^9}, {3.56015764528125*^9, 
   3.560157646765625*^9}, {3.5601581085*^9, 3.56015810959375*^9}, {
   3.56068396371875*^9, 3.5606839654375*^9}, {3.56068421521875*^9, 
   3.560684220046875*^9}, {3.560684590515625*^9, 3.560684595125*^9}, {
   3.560757900703125*^9, 3.5607579016875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SSpeed7", "[", 
  RowBox[{"600", ",", "750", ",", "1.55", ",", ".9", ",", "Rgal"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.55923227025*^9, 3.5592322819375*^9}, {
  3.560007983296875*^9, 3.560008034125*^9}, {3.560158012796875*^9, 
  3.560158015984375*^9}, {3.560684224171875*^9, 3.560684225796875*^9}}],

Cell[BoxData["0.16058919672640615`"], "Output",
 CellChangeTimes->{3.56068405178125*^9, 3.56068411284375*^9, 
  3.560684176609375*^9, 3.560684226828125*^9, 3.5606846006875*^9, 
  3.560690120234375*^9, 3.560754385828125*^9, 3.56075760353125*^9, 
  3.560758092546875*^9, 3.560762778671875*^9, 3.560765086265625*^9, 
  3.560788335734375*^9, 3.561134597734375*^9, 3.561728608359375*^9, 
  3.56179013265625*^9, 3.56198287921875*^9, 3.56204665465625*^9, 
  3.562069867859375*^9, 3.56235498403125*^9, 3.562466170612381*^9, 
  3.562961988796875*^9, 3.563086989421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SSpeed7", "[", 
      RowBox[{"850", ",", "850", ",", "AM", ",", ".8", ",", "Rgal"}], "]"}], 
     ",", 
     RowBox[{"SSpeed7", "[", 
      RowBox[{"850", ",", "850", ",", "AM", ",", ".9", ",", "Rgal"}], "]"}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"AM", ",", "1", ",", "2"}], "}"}], ",", " ", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "Speed"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.55923227025*^9, 3.5592322819375*^9}, {
  3.560007983296875*^9, 3.560008034125*^9}, {3.560158012796875*^9, 
  3.560158015984375*^9}, {3.560684224171875*^9, 3.560684225796875*^9}, {
  3.560757610734375*^9, 3.560757677*^9}, {3.561134508171875*^9, 
  3.56113451103125*^9}, {3.561134713609375*^9, 3.561134753234375*^9}, {
  3.561134800921875*^9, 3.561134817796875*^9}, {3.561134938859375*^9, 
  3.56113496509375*^9}, {3.56206963996875*^9, 3.562069660546875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.0000000526315789`, 0.6155601490127343}, {1.0506212841513152`, 
     0.5676579193150647}, {1.1055004998519722`, 0.521437420570816}, {
     1.1567429628914447`, 0.482912094585819}, {1.2069802522171011`, 
     0.4488584544318591}, {1.2614755257236783`, 0.41555659570615694`}, {
     1.312334046569071, 0.38707903999867466`}, {1.3674505515953845`, 
     0.35950145562125424`}, {1.421561882907882, 0.3349993890318961}, {
     1.472036461559195, 0.3144662750106377}, {1.5267690243914287`, 
     0.2937613563048501}, {1.577864834562478, 0.2760593998828602}, {
     1.627955471019711, 0.2599655358835908}, {1.682304091657865, 
     0.24400333470355476`}, {1.7330159596348347`, 0.23027854831053338`}, {
     1.787985811792725, 0.21653272928727713`}, {1.8419504902367991`, 
     0.20408433483557678`}, {1.8922784160196888`, 0.1929878615017764}, {
     1.9468643259834992`, 0.1821517534638982}, {1.9978134832861252`, 
     0.17274756379944395`}, {1.9999999473684211`, 0.17235867810837424`}}]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.0000000526315789`, 0.6112772755858388}, {1.0506212841513152`, 
     0.5659520688801306}, {1.1055004998519722`, 0.5220385002209056}, {
     1.1567429628914447`, 0.48528228192041956`}, {1.2069802522171011`, 
     0.45267356840499073`}, {1.2614755257236783`, 0.4206631640828568}, {
     1.312334046569071, 0.39326576383180123`}, {1.3674505515953845`, 
     0.3665527961738061}, {1.421561882907882, 0.3427237835973549}, {
     1.472036461559195, 0.3226254341822077}, {1.5267690243914287`, 
     0.3023581347440736}, {1.577864834562478, 0.2849713645383206}, {
     1.627955471019711, 0.2691318628053093}, {1.682304091657865, 
     0.25335097703355614`}, {1.7330159596348347`, 0.23973802675133826`}, {
     1.787985811792725, 0.22606345839725295`}, {1.8419504902367991`, 
     0.21364035082677837`}, {1.8922784160196888`, 0.202583564372175}, {
     1.9468643259834992`, 0.19170349902273895`}, {1.9978134832861252`, 
     0.18223496506990333`}, {1.9999999473684211`, 0.18184283188425152`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["Speed", TraditionalForm]},
  AxesOrigin->{1., 0.2},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1, 2}, {0.17235867810837424`, 0.6155601490127343}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.561134808453125*^9, 3.56113483025*^9}, {
   3.56113495009375*^9, 3.561134979640625*^9}, 3.5617286135*^9, 
   3.56179013765625*^9, 3.56198288403125*^9, 3.562046659390625*^9, 
   3.562069664859375*^9, 3.562069872734375*^9, 3.562354988671875*^9, 
   3.562466175206131*^9, 3.56296199346875*^9, 3.56308699425*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"STime7", "[", 
   RowBox[{"\[Lambda]_", ",", "\[Lambda]0_", ",", "rapp_", ",", "Rg_"}], 
   "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FAM", "[", "AM", "]"}], "/", 
     RowBox[{"SSpeed7", "[", 
      RowBox[{
      "\[Lambda]", ",", "\[Lambda]0", ",", "AM", ",", "rapp", ",", "Rg"}], 
      "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"AM", ",", 
      RowBox[{"{", 
       RowBox[{
       "1.05", ",", "1.15", ",", "1.25", ",", "1.35", ",", "1.45", ",", 
        "1.55", ",", "1.65", ",", "1.75", ",", "1.85", ",", "1.95", ",", 
        "2.05"}], "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.55923319796875*^9, 3.55923322965625*^9}, {
  3.56000811809375*^9, 3.5600081268125*^9}, {3.560008389578125*^9, 
  3.560008422296875*^9}, {3.5601577594375*^9, 3.560157765765625*^9}, {
  3.560684229515625*^9, 3.560684239546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"STime7v3", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "rapp_", ",", "Rg_", ",", "Vsig_"}],
    "]"}], ":=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"1", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"rapp", "/", "1.57"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"2.355", " ", 
          RowBox[{"Vsig", "/", "100"}]}], ")"}]}], ")"}], "^", "2"}]}], "]"}],
    " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"FAM", "[", "AM", "]"}], "/", 
      RowBox[{"SSpeed7", "[", 
       RowBox[{
       "\[Lambda]", ",", "\[Lambda]0", ",", "AM", ",", "rapp", ",", "Rg"}], 
       "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"AM", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.05", ",", "1.15", ",", "1.25", ",", "1.35", ",", "1.45", ",", 
         "1.55", ",", "1.65", ",", "1.75", ",", "1.85", ",", "1.95", ",", 
         "2.05"}], "}"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.561728107546875*^9, 3.561728107859375*^9}, {
   3.56172817284375*^9, 3.561728182109375*^9}, {3.56172999075*^9, 
   3.561730005015625*^9}, {3.5617300586875*^9, 3.5617300594375*^9}, {
   3.56173009534375*^9, 3.561730189703125*^9}, 3.561730222828125*^9, {
   3.5617307648125*^9, 3.561730829828125*^9}, {3.561732711203125*^9, 
   3.561732719890625*^9}, {3.56236184625*^9, 3.5623618725625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"STime7v4", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "rapp_", ",", "Rg_", ",", "Vsig_"}],
    "]"}], ":=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"1", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"rapp", "/", "1.57"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"2.355", " ", 
          RowBox[{"Vsig", "/", "75"}]}], ")"}]}], ")"}], "^", "2"}]}], "]"}], 
   " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"FAM", "[", "AM", "]"}], "/", 
      RowBox[{"SSpeed7", "[", 
       RowBox[{
       "\[Lambda]", ",", "\[Lambda]0", ",", "AM", ",", "rapp", ",", "Rg"}], 
       "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"AM", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.05", ",", "1.15", ",", "1.25", ",", "1.35", ",", "1.45", ",", 
         "1.55", ",", "1.65", ",", "1.75", ",", "1.85", ",", "1.95", ",", 
         "2.05"}], "}"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.561728107546875*^9, 3.561728107859375*^9}, {
   3.56172817284375*^9, 3.561728182109375*^9}, {3.56172999075*^9, 
   3.561730005015625*^9}, {3.5617300586875*^9, 3.5617300594375*^9}, {
   3.56173009534375*^9, 3.561730189703125*^9}, 3.561730222828125*^9, {
   3.5617307648125*^9, 3.561730829828125*^9}, {3.561732711203125*^9, 
   3.561732719890625*^9}, {3.56236184625*^9, 3.56236189396875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SSpeed7ADC", "[", 
   RowBox[{"\[Lambda]_", ",", "AM_", ",", "rapp_", ",", "Rg_"}], "]"}], ":=", 
  
  RowBox[{
   RowBox[{"ADCloss", "[", "\[Lambda]", "]"}], " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"AMloss", "[", "\[Lambda]", "]"}], "^", "AM"}], " ", 
       RowBox[{
        RowBox[{"AppEffDR7", "[", 
         RowBox[{
         "\[Lambda]", ",", "\[Lambda]", ",", "AM", ",", "rapp", ",", "Rg"}], 
         "]"}], "/", "rapp"}]}], ")"}], "^", "2"}], " ", "/", 
    "AM"}]}]}]], "Input",
 CellChangeTimes->{{3.55923157415625*^9, 3.559231656234375*^9}, {
   3.559231704421875*^9, 3.559231828234375*^9}, {3.55923203965625*^9, 
   3.55923204921875*^9}, {3.559235611578125*^9, 3.55923561434375*^9}, 
   3.559964311640625*^9, {3.5600075606875*^9, 3.560007572453125*^9}, {
   3.560007651015625*^9, 3.560007654890625*^9}, {3.560007860671875*^9, 
   3.560007865453125*^9}, {3.56000790115625*^9, 3.5600079071875*^9}, {
   3.560157601359375*^9, 3.560157616109375*^9}, {3.560684766578125*^9, 
   3.560684794609375*^9}, 3.560685083875*^9, {3.5607579305625*^9, 
   3.560757938140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"STime7ADC", "[", 
   RowBox[{"\[Lambda]_", ",", "rapp_", ",", "Rg_"}], "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FAM", "[", "AM", "]"}], "/", 
     RowBox[{"SSpeed7ADC", "[", 
      RowBox[{"\[Lambda]", ",", "AM", ",", "rapp", ",", "Rg"}], "]"}]}], ",", 
    
    RowBox[{"{", 
     RowBox[{"AM", ",", 
      RowBox[{"{", 
       RowBox[{
       "1.05", ",", "1.15", ",", "1.25", ",", "1.35", ",", "1.45", ",", 
        "1.55", ",", "1.65", ",", "1.75", ",", "1.85", ",", "1.95", ",", 
        "2.05"}], "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.55923263115625*^9, 3.55923274446875*^9}, 
   3.559232869203125*^9, {3.559233024328125*^9, 3.55923305346875*^9}, {
   3.5592330945625*^9, 3.559233173921875*^9}, {3.560008076390625*^9, 
   3.560008088953125*^9}, {3.560157709921875*^9, 3.56015772221875*^9}, {
   3.5606849449375*^9, 3.560684947*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AppEffDR3", "[", 
   RowBox[{
   "\[Lambda]_", ",", "\[Lambda]0_", ",", "AM_", ",", "rapp_", ",", "Rg_"}], 
   "]"}], ":=", 
  RowBox[{"AppEffd", "[", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{"MMEG2", "[", 
      RowBox[{
       RowBox[{"Rsee", "[", 
        RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
       RowBox[{"Ropt3", "[", "\[Lambda]", "]"}]}], "]"}], "]"}], ",", 
    RowBox[{"BetaMEG0", "[", 
     RowBox[{
      RowBox[{"Rsee", "[", 
       RowBox[{"\[Lambda]", ",", "AM"}], "]"}], ",", "Rg", ",", 
      RowBox[{"Ropt3", "[", "\[Lambda]", "]"}]}], "]"}], ",", "rapp", ",", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"10", "/", "56.73"}], ")"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"DR", "[", 
        RowBox[{"\[Lambda]", ",", "\[Lambda]0", ",", "AM"}], "]"}], "^", 
       "2"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "includes", " ", "10", "um", " ", "decenering", " ", "added", " ", "in", 
    " ", "quadrature"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.55895471915625*^9, 3.55895475178125*^9}, {
   3.558955017828125*^9, 3.558955083421875*^9}, 3.558955118125*^9, {
   3.55895538559375*^9, 3.558955385984375*^9}, {3.55905034925*^9, 
   3.55905035415625*^9}, {3.55914137625*^9, 3.559141382625*^9}, {
   3.559145763234375*^9, 3.559145763375*^9}, {3.559145860984375*^9, 
   3.55914586134375*^9}, {3.55914745221875*^9, 3.55914745984375*^9}, {
   3.559148580625*^9, 3.559148591*^9}, {3.559229405796875*^9, 
   3.559229423671875*^9}, {3.5592294933125*^9, 3.5592295391875*^9}, 
   3.559229587421875*^9, {3.559229672125*^9, 3.55922967715625*^9}, {
   3.5599238639375*^9, 3.55992387090625*^9}, {3.559964292765625*^9, 
   3.5599643118125*^9}, {3.560007155203125*^9, 3.5600071675625*^9}, {
   3.56000731775*^9, 3.5600074231875*^9}, 3.560007470375*^9, {
   3.560157537328125*^9, 3.560157546015625*^9}, 3.56068383265625*^9, {
   3.560683900359375*^9, 3.5606839106875*^9}, {3.560684106515625*^9, 
   3.5606841075*^9}, {3.5606841646875*^9, 3.560684173484375*^9}, {
   3.560690294734375*^9, 3.5606903100625*^9}, 3.560690346734375*^9, {
   3.56069042690625*^9, 3.560690434046875*^9}, {3.56069050628125*^9, 
   3.56069051340625*^9}, {3.560755837625*^9, 3.560755841546875*^9}, {
   3.56075592975*^9, 3.560755930171875*^9}, {3.5607933179375*^9, 
   3.56079333690625*^9}, {3.561129411578125*^9, 3.56112941178125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SSpeed3ADC", "[", 
   RowBox[{"\[Lambda]_", ",", "AM_", ",", "rapp_", ",", "Rg_"}], "]"}], ":=", 
  
  RowBox[{
   RowBox[{"ADCloss", "[", "\[Lambda]", "]"}], 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"AMloss", "[", "\[Lambda]", "]"}], "^", "AM"}], " ", 
       RowBox[{
        RowBox[{"AppEffDR3", "[", 
         RowBox[{
         "\[Lambda]", ",", "\[Lambda]", ",", "AM", ",", "rapp", ",", "Rg"}], 
         "]"}], "/", "rapp"}]}], ")"}], "^", "2"}], " ", "/", 
    "AM"}]}]}]], "Input",
 CellChangeTimes->{{3.55923157415625*^9, 3.559231656234375*^9}, {
   3.559231704421875*^9, 3.559231828234375*^9}, {3.55923203965625*^9, 
   3.55923204921875*^9}, {3.559235611578125*^9, 3.55923561434375*^9}, 
   3.559964311640625*^9, {3.5600075606875*^9, 3.560007572453125*^9}, {
   3.560007651015625*^9, 3.560007654890625*^9}, {3.560007860671875*^9, 
   3.560007865453125*^9}, {3.56000790115625*^9, 3.5600079071875*^9}, {
   3.560157601359375*^9, 3.560157616109375*^9}, {3.560684766578125*^9, 
   3.560684794609375*^9}, 3.560685083875*^9, {3.56069021678125*^9, 
   3.56069022396875*^9}, {3.5607559359375*^9, 3.56075594128125*^9}, {
   3.560757952796875*^9, 3.560757962703125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"STime3ADC", "[", 
   RowBox[{"\[Lambda]_", ",", "rapp_", ",", "Rg_"}], "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FAM", "[", "AM", "]"}], "/", 
     RowBox[{"SSpeed3ADC", "[", 
      RowBox[{"\[Lambda]", ",", "AM", ",", "rapp", ",", "Rg"}], "]"}]}], ",", 
    
    RowBox[{"{", 
     RowBox[{"AM", ",", 
      RowBox[{"{", 
       RowBox[{
       "1.05", ",", "1.15", ",", "1.25", ",", "1.35", ",", "1.45", ",", 
        "1.55", ",", "1.65", ",", "1.75", ",", "1.85", ",", "1.95", ",", 
        "2.05"}], "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.55923263115625*^9, 3.55923274446875*^9}, 
   3.559232869203125*^9, {3.559233024328125*^9, 3.55923305346875*^9}, {
   3.5592330945625*^9, 3.559233173921875*^9}, {3.560008076390625*^9, 
   3.560008088953125*^9}, {3.560157709921875*^9, 3.56015772221875*^9}, {
   3.5606849449375*^9, 3.560684947*^9}, {3.56069024*^9, 3.560690244375*^9}, {
   3.56075594509375*^9, 3.560755948859375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PT7Ng", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"STime7", "[", 
     RowBox[{"850", ",", "850", ",", 
      RowBox[{"dapp", "/", "2"}], ",", "Rgal"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dapp", ",", "1.5", ",", "2.5"}], "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", "  ", 
     RowBox[{"{", 
      RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.560009005796875*^9, 3.560009076234375*^9}, {
  3.560009318203125*^9, 3.56000935578125*^9}, {3.560158420890625*^9, 
  3.5601584370625*^9}, {3.560158841921875*^9, 3.560158857703125*^9}, {
  3.56068428128125*^9, 3.560684300046875*^9}, {3.56068499709375*^9, 
  3.560685005734375*^9}, {3.560793743296875*^9, 3.560793744546875*^9}, {
  3.560794168921875*^9, 3.560794172046875*^9}, {3.562069730234375*^9, 
  3.562069746109375*^9}, {3.562069845359375*^9, 3.56206985053125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000526315789`, 2.168485677870333}, {1.5506212841513152`, 
     2.1444960140191416`}, {1.6055004998519722`, 2.1259236611846726`}, {
     1.6567429628914447`, 2.1149259000199674`}, {1.7069802522171011`, 
     2.1095870516678015`}, {1.7614755257236783`, 2.109414326157281}, {
     1.812334046569071, 2.114149632996208}, {1.8674505515953845`, 
     2.1242573062967685`}, {1.921561882907882, 2.138904802615984}, {
     1.972036461559195, 2.15654981897876}, {2.026769024391429, 
     2.17980531886176}, {2.0778648345624786`, 2.205210217103023}, {
     2.127955471019712, 2.233435286267708}, {2.1823040916578664`, 
     2.267638670151418}, {2.233015959634836, 2.3027987836023485`}, {
     2.2879858117927263`, 2.3443375786243528`}, {2.3419504902368007`, 
     2.3884843957840496`}, {2.392278416019691, 2.4325842868527214`}, {
     2.4468643259835017`, 2.4835340523956435`}, {2.497813483286128, 
     2.5339548729651997`}, {2.499999947368421, 2.5361797151910146`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.6, 2.2},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2.5}, {2.109414326157281, 2.5361797151910146`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 Evaluatable->False,
 CellChangeTimes->{3.560684337703125*^9, 3.5606846496875*^9, 
  3.560685046671875*^9, 3.56069013696875*^9, 3.5607544025*^9, 
  3.56075764096875*^9, 3.560758158234375*^9, 3.560762855640625*^9, 
  3.5607651413125*^9, 3.560788388578125*^9, 3.5607934760625*^9, 
  3.56079380871875*^9, 3.56095273615625*^9, 3.56113469675*^9, 
  3.56172864078125*^9, 3.561790163984375*^9, 3.56198290875*^9, 
  3.562046686640625*^9, 3.562069872828125*^9, 3.562143973625*^9, 
  3.562355012765625*^9, 3.562466199221756*^9, 3.562962017359375*^9, 
  3.56308701978125*^9},
 ImageSize->{360., -0.0625},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PT7Ngt", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"STime7", "[", 
     RowBox[{"850", ",", "850", ",", 
      RowBox[{"dapp", "/", "2"}], ",", "0"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dapp", ",", "1.5", ",", "2.5"}], "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", "  ", 
     RowBox[{"{", 
      RowBox[{"time", ",", "\"\<S/N\>\""}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.560009005796875*^9, 3.560009076234375*^9}, {
   3.560009318203125*^9, 3.56000935578125*^9}, {3.560158420890625*^9, 
   3.5601584370625*^9}, {3.560158841921875*^9, 3.560158857703125*^9}, {
   3.56068428128125*^9, 3.560684300046875*^9}, {3.56068499709375*^9, 
   3.560685005734375*^9}, {3.56076541978125*^9, 3.56076542290625*^9}, {
   3.560793749359375*^9, 3.560793750578125*^9}, 3.560794185609375*^9, 
   3.562069770546875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000526315789`, 1.5732007234271723`}, {1.5506212841513152`,
      1.5773305704688438`}, {1.6055004998519722`, 1.5867578471038428`}, {
     1.6567429628914447`, 1.5998792608073198`}, {1.7069802522171011`, 
     1.616532750627812}, {1.7614755257236783`, 1.6385963728496515`}, {
     1.812334046569071, 1.6627477678330917`}, {1.8674505515953845`, 
     1.692617062997903}, {1.921561882907882, 1.7255223428260977`}, {
     1.972036461559195, 1.7592921834065656`}, {2.026769024391429, 
     1.7991517016873382`}, {2.0778648345624786`, 1.8393143044602407`}, {
     2.127955471019712, 1.881377976257077}, {2.1823040916578664`, 
     1.9299566909529915`}, {2.233015959634836, 1.9779816747505259`}, {
     2.2879858117927263`, 2.0329170667486056`}, {2.3419504902368007`, 
     2.0897033405638656`}, {2.392278416019691, 2.1451660734783324`}, {
     2.4468643259835017`, 2.2080063980122704`}, {2.497813483286128, 
     2.2691419768147383`}, {2.499999947368421, 2.27181866108336}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["time", TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{1.6, 1.6},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2.5}, {1.5732007234271723`, 2.27181866108336}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560765456078125*^9, 3.5607883970625*^9, 
  3.56079352971875*^9, 3.5607938608125*^9, 3.56095279378125*^9, 
  3.561134743734375*^9, 3.5617286605*^9, 3.561790182765625*^9, 
  3.5619829270625*^9, 3.5620467070625*^9, 3.56206987290625*^9, 
  3.5621439923125*^9, 3.562355030875*^9, 3.562466217034256*^9, 
  3.562962035171875*^9, 3.5630870388125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PT7Ag", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"STime7ADC", "[", 
     RowBox[{"850", ",", 
      RowBox[{"dapp", "/", "2"}], ",", "Rgal"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dapp", ",", "1.5", ",", "2.5"}], "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", "  ", 
     RowBox[{"{", 
      RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.560009005796875*^9, 3.560009076234375*^9}, {
   3.560009318203125*^9, 3.56000935578125*^9}, {3.560158420890625*^9, 
   3.5601584370625*^9}, {3.560158841921875*^9, 3.560158857703125*^9}, {
   3.56068428128125*^9, 3.560684300046875*^9}, {3.56068499709375*^9, 
   3.56068503*^9}, {3.560793757921875*^9, 3.560793759390625*^9}, {
   3.56079419128125*^9, 3.560794194765625*^9}, 3.562069776265625*^9, 
   3.562069875953125*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000526315789`, 2.251802365389755}, {1.5506212841513152`, 
     2.226890980289867}, {1.6055004998519722`, 2.2076050479591616`}, {
     1.6567429628914447`, 2.196184735223227}, {1.7069802522171011`, 
     2.1906407597796482`}, {1.7614755257236783`, 2.190461397878797}, {
     1.812334046569071, 2.1953786427790325`}, {1.8674505515953845`, 
     2.2058746690516804`}, {1.921561882907882, 2.221084945603306}, {
     1.972036461559195, 2.239407911712109}, {2.026769024391429, 
     2.2635569250900938`}, {2.0778648345624786`, 2.2899379201485184`}, {
     2.127955471019712, 2.3192474416071733`}, {2.1823040916578664`, 
     2.3547649741966956`}, {2.233015959634836, 2.391275995433384}, {
     2.2879858117927263`, 2.434410777387698}, {2.3419504902368007`, 
     2.4802537858609033`}, {2.392278416019691, 2.5260480652676236`}, {
     2.4468643259835017`, 2.5789554022800036`}, {2.497813483286128, 
     2.6313134714072683`}, {2.499999947368421, 2.633623795629299}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.6, 2.2},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2.5}, {2.190461397878797, 2.633623795629299}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.560685047*^9, 3.560685129765625*^9, 3.56069015390625*^9, 3.56075441925*^9,
    3.560757678203125*^9, 3.560758195390625*^9, 3.56076287475*^9, 
   3.560765174421875*^9, 3.56079358346875*^9, 3.560793914921875*^9, 
   3.56095285553125*^9, 3.561134781296875*^9, 3.56172868778125*^9, 
   3.561790208125*^9, 3.56198295190625*^9, 3.562046731921875*^9, {
   3.56206987546875*^9, 3.56206987890625*^9}, 3.562144014484375*^9, 
   3.56235505515625*^9, 3.562466240956131*^9, 3.5629620590625*^9, 
   3.563087064046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PT3Ag", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"STime3ADC", "[", 
     RowBox[{"850", ",", 
      RowBox[{"dapp", "/", "2"}], ",", "Rgal"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dapp", ",", "1.5", ",", "2.5"}], "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", "  ", 
     RowBox[{"{", 
      RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.560009005796875*^9, 3.560009076234375*^9}, {
   3.560009318203125*^9, 3.56000935578125*^9}, {3.560158420890625*^9, 
   3.5601584370625*^9}, {3.560158841921875*^9, 3.560158857703125*^9}, {
   3.56068428128125*^9, 3.560684300046875*^9}, {3.56068499709375*^9, 
   3.56068503*^9}, {3.560690380125*^9, 3.56069038496875*^9}, {
   3.560755956796875*^9, 3.560755959828125*^9}, {3.56079376390625*^9, 
   3.560793765140625*^9}, {3.560794199421875*^9, 3.560794201734375*^9}, 
   3.5620697818125*^9, 3.56206988521875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000526315789`, 3.085297754064885}, {1.5506212841513152`, 
     3.017297801139673}, {1.6055004998519722`, 2.955364178885384}, {
     1.6567429628914447`, 2.907445601561479}, {1.7069802522171011`, 
     2.868841582157755}, {1.7614755257236783`, 2.8354740727833962`}, {
     1.812334046569071, 2.81162845557113}, {1.8674505515953845`, 
     2.7930740776815126`}, {1.921561882907882, 2.7816591828685087`}, {
     1.972036461559195, 2.776646942657342}, {2.026769024391429, 
     2.776948515450536}, {2.0778648345624786`, 2.7822902150661593`}, {
     2.127955471019712, 2.7920042334193265`}, {2.1823040916578664`, 
     2.8073003421188836`}, {2.233015959634836, 2.825826543816808}, {
     2.2879858117927263`, 2.8503392606381466`}, {2.3419504902368007`, 
     2.8787050210819265`}, {2.392278416019691, 2.9088569126366757`}, {
     2.4468643259835017`, 2.945457837133214}, {2.497813483286128, 
     2.98316909541332}, {2.499999947368421, 2.984862633416874}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.6, 2.8000000000000003`},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2.5}, {2.776646942657342, 3.085297754064885}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5606905443125*^9, 3.560754436*^9, 3.560757715796875*^9, 3.560758232875*^9,
    3.560765207078125*^9, 3.560793636609375*^9, 3.560793966984375*^9, 
   3.560952912296875*^9, 3.56172871540625*^9, 3.561790233359375*^9, 
   3.561982976203125*^9, 3.562046758859375*^9, {3.56206987565625*^9, 
   3.5620698866875*^9}, 3.56214403878125*^9, 3.562355080375*^9, 
   3.562466265878006*^9, 3.562962083875*^9, 3.563087090125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"PT7Ng", ",", "PT7Ag", ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"time", ",", "\"\<S/N\>\""}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5606850346875*^9, 3.56068505165625*^9}, {
  3.5606906518125*^9, 3.560690653984375*^9}, {3.560690815078125*^9, 
  3.560690883171875*^9}, {3.560755965921875*^9, 3.560755977640625*^9}, {
  3.56206980353125*^9, 3.5620698071875*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], 
     LineBox[{{1.5000000526315789`, 2.168485677870333}, {1.5506212841513152`, 
      2.1444960140191416`}, {1.6055004998519722`, 2.1259236611846726`}, {
      1.6567429628914447`, 2.1149259000199674`}, {1.7069802522171011`, 
      2.1095870516678015`}, {1.7614755257236783`, 2.109414326157281}, {
      1.812334046569071, 2.114149632996208}, {1.8674505515953845`, 
      2.1242573062967685`}, {1.921561882907882, 2.138904802615984}, {
      1.972036461559195, 2.15654981897876}, {2.026769024391429, 
      2.17980531886176}, {2.0778648345624786`, 2.205210217103023}, {
      2.127955471019712, 2.233435286267708}, {2.1823040916578664`, 
      2.267638670151418}, {2.233015959634836, 2.3027987836023485`}, {
      2.2879858117927263`, 2.3443375786243528`}, {2.3419504902368007`, 
      2.3884843957840496`}, {2.392278416019691, 2.4325842868527214`}, {
      2.4468643259835017`, 2.4835340523956435`}, {2.497813483286128, 
      2.5339548729651997`}, {2.499999947368421, 
      2.5361797151910146`}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], 
     LineBox[{{1.5000000526315789`, 2.251802365389755}, {1.5506212841513152`, 
      2.226890980289867}, {1.6055004998519722`, 2.2076050479591616`}, {
      1.6567429628914447`, 2.196184735223227}, {1.7069802522171011`, 
      2.1906407597796482`}, {1.7614755257236783`, 2.190461397878797}, {
      1.812334046569071, 2.1953786427790325`}, {1.8674505515953845`, 
      2.2058746690516804`}, {1.921561882907882, 2.221084945603306}, {
      1.972036461559195, 2.239407911712109}, {2.026769024391429, 
      2.2635569250900938`}, {2.0778648345624786`, 2.2899379201485184`}, {
      2.127955471019712, 2.3192474416071733`}, {2.1823040916578664`, 
      2.3547649741966956`}, {2.233015959634836, 2.391275995433384}, {
      2.2879858117927263`, 2.434410777387698}, {2.3419504902368007`, 
      2.4802537858609033`}, {2.392278416019691, 2.5260480652676236`}, {
      2.4468643259835017`, 2.5789554022800036`}, {2.497813483286128, 
      2.6313134714072683`}, {2.499999947368421, 2.633623795629299}}]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["time", TraditionalForm], 
    FormBox["\"S/N\"", TraditionalForm]},
  AxesOrigin->{1.6, 2.2},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2.5}, {2.109414326157281, 2.5361797151910146`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5606851299375*^9, 3.560690153953125*^9, 3.5606906555*^9, {
   3.56069083059375*^9, 3.560690845921875*^9}, 3.560690885125*^9, 
   3.560754436078125*^9, 3.5607577159375*^9, 3.560758233*^9, 
   3.560765207234375*^9, 3.560793640296875*^9, 3.560793967109375*^9, 
   3.560952912375*^9, 3.56172871546875*^9, 3.561790233421875*^9, 
   3.56198297625*^9, 3.562046758921875*^9, 3.5621440389375*^9, 
   3.5623550804375*^9, 3.562466265924881*^9, 3.562962083953125*^9, 
   3.5630870901875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PT7Ns", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"STime7", "[", 
     RowBox[{"350", ",", "425", ",", 
      RowBox[{"dapp", "/", "2"}], ",", "0"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dapp", ",", "1.5", ",", "2.5"}], "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", "  ", 
     RowBox[{"{", 
      RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.560009005796875*^9, 3.560009076234375*^9}, {
   3.560009318203125*^9, 3.56000935578125*^9}, {3.560158420890625*^9, 
   3.5601584370625*^9}, {3.560158841921875*^9, 3.560158857703125*^9}, {
   3.56068428128125*^9, 3.560684300046875*^9}, {3.56068442875*^9, 
   3.56068446203125*^9}, {3.56068519896875*^9, 3.5606851994375*^9}, {
   3.560685343625*^9, 3.56068534478125*^9}, {3.560685439015625*^9, 
   3.5606854450625*^9}, {3.560793780453125*^9, 3.5607937821875*^9}, {
   3.5607942064375*^9, 3.56079420846875*^9}, {3.561728377546875*^9, 
   3.561728378421875*^9}, 3.562069790265625*^9, 3.562069897046875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.5000000526315789`, 15.009978805942024`}, {1.5506212841513152`,
      14.440542780303515`}, {1.6055004998519722`, 13.898756475961916`}, {
     1.6567429628914447`, 13.455629205633022`}, {1.7069802522171011`, 
     13.073518325277892`}, {1.7614755257236783`, 12.71141750654412}, {
     1.812334046569071, 12.41771220348165}, {1.8674505515953845`, 
     12.142850038965}, {1.921561882907882, 11.912802905429594`}, {
     1.972036461559195, 11.730572268658955`}, {2.026769024391429, 
     11.565255298165098`}, {2.0778648345624786`, 11.438831515565559`}, {
     2.127955471019712, 11.339081832785784`}, {2.1823040916578664`, 
     11.25601070469114}, {2.233015959634836, 11.200523015166992`}, {
     2.2879858117927263`, 11.162818159436378`}, {2.3419504902368007`, 
     11.14711400932405}, {2.392278416019691, 11.150394140440937`}, {
     2.4468643259835017`, 11.17244956200972}, {2.497813483286128, 
     11.209533267262154`}, {2.499999947368421, 11.21146930649374}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.6, 11.5},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2.5}, {11.14711400932405, 15.009978805942024`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5606845095*^9, 3.560684750765625*^9, 3.560685251609375*^9, 
   3.5606853949375*^9, 3.560685491328125*^9, 3.56069017396875*^9, 
   3.560754456078125*^9, 3.56075775953125*^9, 3.560758276578125*^9, 
   3.560765246984375*^9, 3.5607937018125*^9, 3.56079402371875*^9, 
   3.560952973875*^9, 3.561728739734375*^9, 3.56172882928125*^9, 
   3.56179025640625*^9, 3.561982999046875*^9, 3.5620467815625*^9, {
   3.56206987578125*^9, 3.56206989853125*^9}, 3.562144061109375*^9, 
   3.562355102703125*^9, 3.562466287956131*^9, 3.562962105765625*^9, 
   3.563087113328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PT7As", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"STime7ADC", "[", 
     RowBox[{"350", ",", 
      RowBox[{"dapp", "/", "2"}], ",", "0"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dapp", ",", "1.5", ",", "2.5"}], "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.560009005796875*^9, 3.560009076234375*^9}, {
  3.560009318203125*^9, 3.56000935578125*^9}, {3.560158420890625*^9, 
  3.5601584370625*^9}, {3.560158841921875*^9, 3.560158857703125*^9}, {
  3.56068428128125*^9, 3.560684300046875*^9}, {3.56068442875*^9, 
  3.56068446203125*^9}, {3.56068519896875*^9, 3.5606851994375*^9}, {
  3.560685251875*^9, 3.5606852615*^9}, {3.560793786734375*^9, 
  3.560793788015625*^9}, {3.56079421159375*^9, 3.5607942134375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{1.5000000526315789`, 11.064767789232919`}, {1.5506212841513152`,
      10.875632893441663`}, {1.6055004998519722`, 10.710280125594558`}, {
     1.6567429628914447`, 10.5894283664029}, {1.7069802522171011`, 
     10.499440624955136`}, {1.7614755257236783`, 10.430932631125662`}, {
     1.812334046569071, 10.392092174898819`}, {1.8674505515953845`, 
     10.375216992621638`}, {1.921561882907882, 10.382321406649266`}, {
     1.972036461559195, 10.408677531127045`}, {2.026769024391429, 
     10.457454929617406`}, {2.0778648345624786`, 10.520904097863484`}, {
     2.127955471019712, 10.599037396814152`}, {2.1823040916578664`, 
     10.700820563720928`}, {2.233015959634836, 10.811073423372266`}, {
     2.2879858117927263`, 10.946570830132272`}, {2.3419504902368007`, 
     11.095173067384453`}, {2.392278416019691, 11.247205546606233`}, {
     2.4468643259835017`, 11.42631980372951}, {2.497813483286128, 
     11.60648281220393}, {2.499999947368421, 11.614489909457596`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.6, 10.4},
  PlotRange->{{1.5, 2.5}, {10.375216992621638`, 11.614489909457596`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562355121546875*^9, 3.562466306471756*^9, 
  3.562962124421875*^9, 3.56308713296875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{1.5000000526315789`, 18.918122500928195`}, {1.5506212841513152`,
      18.372702212277858`}, {1.6055004998519722`, 17.8576727878193}, {
     1.6567429628914447`, 17.440298013836525`}, {1.7069802522171011`, 
     17.08422740919222}, {1.7614755257236783`, 16.751329467411367`}, {
     1.812334046569071, 16.485828551482392`}, {1.8674505515953845`, 
     16.242618174988575`}, {1.921561882907882, 16.044786381938167`}, {
     1.972036461559195, 15.893655558638025`}, {2.026769024391429, 
     15.763234154114311`}, {2.0778648345624786`, 15.670508457539546`}, {
     2.127955471019712, 15.604860293874973`}, {2.1823040916578664`, 
     15.559997477134006`}, {2.233015959634836, 15.541305518045059`}, {
     2.2879858117927263`, 15.544742634780594`}, {2.3419504902368007`, 
     15.570707199060907`}, {2.392278416019691, 15.613995569552648`}, {
     2.4468643259835017`, 15.680700461264273`}, {2.497813483286128, 
     15.760643211297989`}, {2.499999947368421, 15.764444147402253`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.6, 15.5},
  PlotRange->{{1.5, 2.5}, {15.541305518045059`, 18.918122500928195`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Input",
 CellChangeTimes->{
  3.560685303515625*^9, 3.5606901911875*^9, 3.5607544728125*^9, 
   3.5607577963125*^9, 3.5607583139375*^9, 3.560765279953125*^9, 
   3.56079375559375*^9, 3.560794075*^9, 3.560953031328125*^9, 
   3.561728760453125*^9, 3.56179027603125*^9, 3.5619830181875*^9, 
   3.56204680221875*^9, 3.56214408009375*^9, {3.56235151834375*^9, 
   3.56235151953125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{1.5000000526315789`, 18.918122500928195`}, {1.5506212841513152`,
      18.372702212277858`}, {1.6055004998519722`, 17.8576727878193}, {
     1.6567429628914447`, 17.440298013836525`}, {1.7069802522171011`, 
     17.08422740919222}, {1.7614755257236783`, 16.751329467411367`}, {
     1.812334046569071, 16.485828551482392`}, {1.8674505515953845`, 
     16.242618174988575`}, {1.921561882907882, 16.044786381938167`}, {
     1.972036461559195, 15.893655558638025`}, {2.026769024391429, 
     15.763234154114311`}, {2.0778648345624786`, 15.670508457539546`}, {
     2.127955471019712, 15.604860293874973`}, {2.1823040916578664`, 
     15.559997477134006`}, {2.233015959634836, 15.541305518045059`}, {
     2.2879858117927263`, 15.544742634780594`}, {2.3419504902368007`, 
     15.570707199060907`}, {2.392278416019691, 15.613995569552648`}, {
     2.4468643259835017`, 15.680700461264273`}, {2.497813483286128, 
     15.760643211297989`}, {2.499999947368421, 15.764444147402253`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.6, 15.5},
  PlotRange->{{1.5, 2.5}, {15.541305518045059`, 18.918122500928195`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56235512159375*^9, 3.562466306518631*^9, 
  3.56296212446875*^9, 3.563087133015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"PT7Ns", ",", "PT7As"}], "]"}]], "Input",
 CellChangeTimes->{{3.5606850346875*^9, 3.56068505165625*^9}, {
  3.560685290953125*^9, 3.560685315703125*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], 
     LineBox[{{1.5000000526315789`, 15.009978805942024`}, {
      1.5506212841513152`, 14.440542780303515`}, {1.6055004998519722`, 
      13.898756475961916`}, {1.6567429628914447`, 13.455629205633022`}, {
      1.7069802522171011`, 13.073518325277892`}, {1.7614755257236783`, 
      12.71141750654412}, {1.812334046569071, 12.41771220348165}, {
      1.8674505515953845`, 12.142850038965}, {1.921561882907882, 
      11.912802905429594`}, {1.972036461559195, 11.730572268658955`}, {
      2.026769024391429, 11.565255298165098`}, {2.0778648345624786`, 
      11.438831515565559`}, {2.127955471019712, 11.339081832785784`}, {
      2.1823040916578664`, 11.25601070469114}, {2.233015959634836, 
      11.200523015166992`}, {2.2879858117927263`, 11.162818159436378`}, {
      2.3419504902368007`, 11.14711400932405}, {2.392278416019691, 
      11.150394140440937`}, {2.4468643259835017`, 11.17244956200972}, {
      2.497813483286128, 11.209533267262154`}, {2.499999947368421, 
      11.21146930649374}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{1.5000000526315789`, 11.064767789232919`}, {
      1.5506212841513152`, 10.875632893441663`}, {1.6055004998519722`, 
      10.710280125594558`}, {1.6567429628914447`, 10.5894283664029}, {
      1.7069802522171011`, 10.499440624955136`}, {1.7614755257236783`, 
      10.430932631125662`}, {1.812334046569071, 10.392092174898819`}, {
      1.8674505515953845`, 10.375216992621638`}, {1.921561882907882, 
      10.382321406649266`}, {1.972036461559195, 10.408677531127045`}, {
      2.026769024391429, 10.457454929617406`}, {2.0778648345624786`, 
      10.520904097863484`}, {2.127955471019712, 10.599037396814152`}, {
      2.1823040916578664`, 10.700820563720928`}, {2.233015959634836, 
      10.811073423372266`}, {2.2879858117927263`, 10.946570830132272`}, {
      2.3419504902368007`, 11.095173067384453`}, {2.392278416019691, 
      11.247205546606233`}, {2.4468643259835017`, 11.42631980372951}, {
      2.497813483286128, 11.60648281220393}, {2.499999947368421, 
      11.614489909457596`}}]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.6, 11.5},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.5, 2.5}, {11.14711400932405, 15.009978805942024`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.560685316625*^9, 3.56068539515625*^9, 3.56068549525*^9, 
  3.56069019125*^9, 3.56075447290625*^9, 3.5607577964375*^9, 
  3.560758314046875*^9, 3.560765280109375*^9, 3.560793755703125*^9, 
  3.560794075125*^9, 3.560953031421875*^9, 3.561728760515625*^9, 
  3.56179027609375*^9, 3.561983018234375*^9, 3.562046802265625*^9, 
  3.56214408015625*^9, 3.562355121625*^9, 3.562466306549881*^9, 
  3.562962124484375*^9, 3.563087133046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PT7Ngv", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"STime7v", "[", 
       RowBox[{"850", ",", "850", ",", 
        RowBox[{"dapp", "/", "2"}], ",", "Rgal", ",", "40"}], "]"}], ",", 
      RowBox[{"STime7v", "[", 
       RowBox[{"850", ",", "850", ",", 
        RowBox[{"dapp", "/", "2"}], ",", "Rgal", ",", "80"}], "]"}], ",", 
      RowBox[{"STime7v", "[", 
       RowBox[{"850", ",", "850", ",", 
        RowBox[{"dapp", "/", "2"}], ",", "Rgal", ",", "120"}], "]"}]}], "}"}],
     ",", 
    RowBox[{"{", 
     RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.560009005796875*^9, 3.560009076234375*^9}, {
   3.560009318203125*^9, 3.56000935578125*^9}, {3.560158420890625*^9, 
   3.5601584370625*^9}, {3.560158841921875*^9, 3.560158857703125*^9}, {
   3.56068428128125*^9, 3.560684300046875*^9}, {3.56068499709375*^9, 
   3.560685005734375*^9}, {3.56076541978125*^9, 3.56076542290625*^9}, {
   3.560793749359375*^9, 3.560793750578125*^9}, 3.560794185609375*^9, {
   3.561728245234375*^9, 3.56172829984375*^9}, {3.56172973890625*^9, 
   3.561729740515625*^9}, {3.56172979984375*^9, 3.561729803578125*^9}, {
   3.561730255125*^9, 3.561730278953125*^9}, {3.561730310765625*^9, 
   3.561730313890625*^9}, {3.56173037759375*^9, 3.561730402421875*^9}, {
   3.56173090153125*^9, 3.561730913*^9}, {3.56173206046875*^9, 
   3.56173206996875*^9}, {3.561732769546875*^9, 3.56173278671875*^9}, {
   3.561732878890625*^9, 3.561732885453125*^9}, {3.561733690015625*^9, 
   3.561733699828125*^9}, 3.561734559875*^9, {3.56173459290625*^9, 
   3.561734605796875*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGCwB2IQ3X5BgY+B4QuICwb6U+ucI84j+MfNTnopbvgK53t9
3v6CpekbnJ/Cndx2yv87nJ/H8Psrg/4POD9ZwPxP4H8E3/Nv/BXhhz/h/GOu
rmu27/sF5+utPCdV1vsbzm976RK9NPcPnH/SJd7ovd1fOH/xb1NOaZ5/CPv7
f27c/grBV7FL/Ji36z+c//RJVONpXwYHGL8l4nFnwB4Ef+bNvXeTlBnhfLWT
fbN0JyP4Gsc2Lmr9jeDvmf7+x///CP5oeI6G52AOTwCjwwIQ
   "], {}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.4000000000000001`, 0},
  PlotRange->{{1.25, 2.25}, {0., 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56172878059375*^9, 3.561729761546875*^9, 
  3.56172982484375*^9, 3.561730359515625*^9, 3.56173060628125*^9, 
  3.561731192625*^9, 3.56173225303125*^9, 3.56173287409375*^9, 
  3.561733067125*^9, 3.561733882859375*^9, 3.561790351359375*^9, 
  3.5619830929375*^9, 3.562046887890625*^9, 3.562144102234375*^9, 
  3.562355194796875*^9, 3.562466306737381*^9, 3.562962124515625*^9, 
  3.56308713325*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v", "[", 
    RowBox[{"850", ",", "850", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "Rgal", ",", "20"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.561734551546875*^9, 3.56173456596875*^9}, {
  3.561734610625*^9, 3.56173461725*^9}, {3.561734705484375*^9, 
  3.561734706890625*^9}, {3.561734972140625*^9, 3.56173497528125*^9}}],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{1.2500000526315789`, 0.}, {1.3006212841513152`, 0.}, {
   1.3555004998519722`, 0.}, {1.4067429628914447`, 0.}, {1.4569802522171011`, 
   0.}, {1.5114755257236783`, 0.}, {1.562334046569071, 0.}, {
   1.6174505515953845`, 0.}, {1.671561882907882, 0.}, {1.722036461559195, 
   0.}, {1.7767690243914287`, 0.}, {1.827864834562478, 0.}, {
   1.877955471019711, 0.}, {1.932304091657865, 0.}, {1.9830159596348347`, 
   0.}, {2.037985811792725, 0.}, {2.0919504902367994`, 0.}, {
   2.1422784160196895`, 0.}, {2.1968643259835003`, 0.}, {2.2478134832861265`, 
   0.}, {2.249999947368421, 0.}}, {}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.4000000000000001`, 0},
  PlotRange->{{1.25, 2.25}, {0., 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.561735040515625*^9, 3.56179037640625*^9, 
  3.561983117796875*^9, 3.56204691278125*^9, 3.562355219171875*^9, 
  3.562466306768631*^9, 3.56296212453125*^9, 3.563087133265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v3", "[", 
    RowBox[{"850", ",", "850", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "Rgal", ",", "80"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.561734551546875*^9, 3.56173456596875*^9}, {
   3.561734610625*^9, 3.56173461725*^9}, {3.561734705484375*^9, 
   3.561734706890625*^9}, 3.562269765265625*^9, 3.56236197534375*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 2.4658449083470035`}, {1.3006212841513152`,
      2.3986267924443454`}, {1.3555004998519722`, 2.3391495124900445`}, {
     1.4067429628914447`, 2.2946419340099973`}, {1.4569802522171011`, 
     2.2601567985117246`}, {1.5114755257236783`, 2.231901038485041}, {
     1.562334046569071, 2.2132769445329195`}, {1.6174505515953845`, 
     2.2007488301684166`}, {1.671561882907882, 2.195535046054863}, {
     1.722036461559195, 2.196509063779904}, {1.7767690243914287`, 
     2.2034865961216625`}, {1.827864834562478, 2.215216314807174}, {
     1.877955471019711, 2.2313325692175354`}, {1.932304091657865, 
     2.2537345078030344`}, {1.9830159596348347`, 2.279049942613676}, {
     2.037985811792725, 2.311111732689722}, {2.0919504902367994`, 
     2.3471021655781352`}, {2.1422784160196895`, 2.3845781852099712`}, {
     2.1968643259835003`, 2.429383164705322}, {2.2478134832861265`, 
     2.475023942797758}, {2.249999947368421, 2.477064076686555}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 2.2},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {2.195535046054863, 2.477064076686555}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.561734770046875*^9, 3.561790426078125*^9, 
  3.561983168375*^9, 3.5620469623125*^9, 3.56227004440625*^9, 
  3.562355268328125*^9, 3.562361938515625*^9, 3.562362003046875*^9, 
  3.562466330612381*^9, 3.562962148671875*^9, 3.563087158421875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v3", "[", 
    RowBox[{"850", ",", "850", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "Rgalmax", ",", "80"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.561734551546875*^9, 3.56173456596875*^9}, {
   3.561734610625*^9, 3.56173461725*^9}, {3.561734705484375*^9, 
   3.561734706890625*^9}, 3.562269765265625*^9, 3.56236197534375*^9, {
   3.56296220396875*^9, 3.56296220440625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 3.277311476597219}, {1.3006212841513152`, 
     3.165179500015116}, {1.3555004998519722`, 3.0624998467388}, {
     1.4067429628914447`, 2.9820416034267927`}, {1.4569802522171011`, 
     2.9158323276871414`}, {1.5114755257236783`, 2.8565559190922123`}, {
     1.562334046569071, 2.8117341831531646`}, {1.6174505515953845`, 
     2.7734074491093756`}, {1.671561882907882, 2.7451407833480888`}, {
     1.722036461559195, 2.7263796128139504`}, {1.7767690243914287`, 
     2.7136412734106616`}, {1.827864834562478, 2.708352995603454}, {
     1.877955471019711, 2.7089302497841796`}, {1.932304091657865, 
     2.7156021940810815`}, {1.9830159596348347`, 2.7271772866526436`}, {
     2.037985811792725, 2.745245847733381}, {2.0919504902367994`, 
     2.768304194416924}, {2.1422784160196895`, 2.7943559076436326`}, {
     2.1968643259835003`, 2.827385537183909}, {2.2478134832861265`, 
     2.8625497344543662`}, {2.249999947368421, 2.864150523597146}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 2.7},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {2.708352995603454, 3.277311476597219}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562962356875*^9, 3.563087184375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v4", "[", 
    RowBox[{"850", ",", "850", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "Rgal", ",", "80"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.561734551546875*^9, 3.56173456596875*^9}, {
   3.561734610625*^9, 3.56173461725*^9}, {3.561734705484375*^9, 
   3.561734706890625*^9}, 3.562269765265625*^9, 3.56236171853125*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 2.4426822984617}, {1.3006212841513152`, 
     2.3743105002589115`}, {1.3555004998519722`, 2.313483972906711}, {
     1.4067429628914447`, 2.2676180649464235`}, {1.4569802522171011`, 
     2.2317030182367925`}, {1.5114755257236783`, 2.2017792423791684`}, {
     1.562334046569071, 2.1814818529036466`}, {1.6174505515953845`, 
     2.1670051647007753`}, {1.671561882907882, 2.159732980037461}, {
     1.722036461559195, 2.158649116634973}, {1.7767690243914287`, 
     2.163235737940946}, {1.827864834562478, 2.1725749653005093`}, {
     1.877955471019711, 2.1861907507964444`}, {1.932304091657865, 
     2.2056939947055354`}, {1.9830159596348347`, 2.228120877135628}, {
     2.037985811792725, 2.256840037494424}, {2.0919504902367994`, 
     2.2893233188700495`}, {2.1422784160196895`, 2.3233164430374678`}, {
     2.1968643259835003`, 2.3641005470136327`}, {2.2478134832861265`, 
     2.4057486383504347`}, {2.249999947368421, 2.407612077241776}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 2.2},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {2.158649116634973, 2.4426822984617}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562361748140625*^9, 3.56236196446875*^9, 
  3.562466354674881*^9, 3.562962172875*^9, 3.56308720984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v4", "[", 
    RowBox[{"850", ",", "850", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "Rgalmax", ",", "80"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.561734551546875*^9, 3.56173456596875*^9}, {
   3.561734610625*^9, 3.56173461725*^9}, {3.561734705484375*^9, 
   3.561734706890625*^9}, 3.562269765265625*^9, 3.56236171853125*^9, {
   3.562962228421875*^9, 3.562962228875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 3.246526455630131}, {1.3006212841513152`, 
     3.133092211661566}, {1.3555004998519722`, 3.02889758633572}, {
     1.4067429628914447`, 2.94692226709866}, {1.4569802522171011`, 
     2.8791240548694392`}, {1.5114755257236783`, 2.8180037640117503`}, {
     1.562334046569071, 2.7713418833050403`}, {1.6174505515953845`, 
     2.7308833173750657`}, {1.671561882907882, 2.700376427739604}, {
     1.722036461559195, 2.6793865956940826`}, {1.7767690243914287`, 
     2.6640714733303525`}, {1.827864834562478, 2.6562191132818977`}, {
     1.877955471019711, 2.6541262106471355`}, {1.932304091657865, 
     2.657716528169385}, {1.9830159596348347`, 2.6662340892241163`}, {
     2.037985811792725, 2.6807794077179747`}, {2.0919504902367994`, 
     2.700156575605807}, {2.1422784160196895`, 2.7225666443625873`}, {
     2.1968643259835003`, 2.7514077615194523`}, {2.2478134832861265`, 
     2.782427679503347}, {2.249999947368421, 2.7838453823426983`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 2.7},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {2.6541262106471355`, 3.246526455630131}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56296238171875*^9, 3.563087235671875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v3", "[", 
    RowBox[{"800", ",", "800", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "0.6667", ",", "300"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.561734551546875*^9, 3.56173456596875*^9}, {
   3.561734610625*^9, 3.56173461725*^9}, {3.561734705484375*^9, 
   3.561734706890625*^9}, 3.562269765265625*^9, {3.562271606265625*^9, 
   3.56227164584375*^9}, 3.56236204496875*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 6.2754252294504855`}, {1.3006212841513152`,
      5.9827258673544605`}, {1.3555004998519722`, 5.706218279553613}, {
     1.4067429628914447`, 5.480985822546246}, {1.4569802522171011`, 
     5.2869131748708}, {1.5114755257236783`, 5.102492859979973}, {
     1.562334046569071, 4.951879583392052}, {1.6174505515953845`, 
     4.809261352536704}, {1.671561882907882, 4.6876905425262105`}, {
     1.722036461559195, 4.588950456628988}, {1.7767690243914287`, 
     4.496194211236894}, {1.827864834562478, 4.421719621510819}, {
     1.877955471019711, 4.359002890547536}, {1.932304091657865, 
     4.301453932963907}, {1.9830159596348347`, 4.256775021116553}, {
     2.037985811792725, 4.217362101279109}, {2.0919504902367994`, 
     4.187077799995877}, {2.1422784160196895`, 4.165782984669289}, {
     2.1968643259835003`, 4.149736010162443}, {2.2478134832861265`, 
     4.140946131884179}, {2.249999947368421, 4.1406967773965135`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 4.5},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {4.1406967773965135`, 6.2754252294504855`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562271756828125*^9, 3.56235529221875*^9, 
  3.562362071578125*^9, 3.562466378034256*^9, 3.5629621964375*^9, 
  3.563087260265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v3", "[", 
    RowBox[{"850", ",", "500", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "0", ",", "10"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5619837155*^9, 3.5619837173125*^9}, {
   3.56198387840625*^9, 3.5619838818125*^9}, 3.562362204421875*^9, {
   3.562362240859375*^9, 3.562362241359375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{1.2500000526315789`, 6.293949177149471}, {1.3006212841513152`, 
     6.165971487112115}, {1.3555004998519722`, 6.060339091379701}, {
     1.4067429628914447`, 5.989825601631297}, {1.4569802522171011`, 
     5.94480850467998}, {1.5114755257236783`, 5.920951405142748}, {
     1.562334046569071, 5.920606916252476}, {1.6174505515953845`, 
     5.942754689427273}, {1.671561882907882, 5.986188477900448}, {
     1.722036461559195, 6.045305068207619}, {1.7767690243914287`, 
     6.129054239728955}, {1.827864834562478, 6.2252386943199385`}, {
     1.877955471019711, 6.336096983581612}, {1.932304091657865, 
     6.474698395763516}, {1.9830159596348347`, 6.62108887347923}, {
     2.037985811792725, 6.798311916104735}, {2.0919504902367994`, 
     6.991064807830123}, {2.1422784160196895`, 7.187649226707855}, {
     2.1968643259835003`, 7.419338305886564}, {2.2478134832861265`, 
     7.6530849465659045`}, {2.249999947368421, 7.6634967116837345`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.4000000000000001`, 6.},
  PlotRange->{{1.25, 2.25}, {5.920606916252476, 7.6634967116837345`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56198374603125*^9, 3.561983919609375*^9, 
  3.56204698684375*^9, 3.56235531296875*^9, 3.562362234140625*^9, 
  3.562362266*^9, 3.562466399956131*^9, 3.562962218625*^9, 
  3.56308728353125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v3", "[", 
    RowBox[{"400", ",", "500", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "0", ",", "10"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5619837155*^9, 3.561983739890625*^9}, {
   3.561983848171875*^9, 3.56198388609375*^9}, 3.56236221575*^9, {
   3.562362245796875*^9, 3.562362246296875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{1.2500000526315789`, 19.343587533211064`}, {1.3006212841513152`,
      18.98649521127721}, {1.3555004998519722`, 18.68514229031582}, {
     1.4067429628914447`, 18.47607326380817}, {1.4569802522171011`, 
     18.332445109040414`}, {1.5114755257236783`, 18.239794772193587`}, {
     1.562334046569071, 18.208215909663245`}, {1.6174505515953845`, 
     18.229870421856344`}, {1.671561882907882, 18.304458234794506`}, {
     1.722036461559195, 18.41936413691421}, {1.7767690243914287`, 
     18.591429677728193`}, {1.827864834562478, 18.79520613582823}, {
     1.877955471019711, 19.03438329642703}, {1.932304091657865, 
     19.337171697774732`}, {1.9830159596348347`, 19.659756521946832`}, {
     2.037985811792725, 20.052697620157634`}, {2.0919504902367994`, 
     20.482033113643894`}, {2.1422784160196895`, 20.921315302101494`}, {
     2.1968643259835003`, 21.44029811384993}, {2.2478134832861265`, 
     21.964861207481427`}, {2.249999947368421, 21.988244827191988`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.4000000000000001`, 18.5},
  PlotRange->{{1.25, 2.25}, {18.208215909663245`, 21.988244827191988`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.561983776328125*^9, {3.561983870578125*^9, 3.561983898234375*^9}, 
   3.56198394359375*^9, 3.562047012515625*^9, 3.562355336625*^9, 
   3.562362289390625*^9, 3.562466421737381*^9, 3.562962240625*^9, 
   3.563087306375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindMinimum", "[", 
  RowBox[{
   RowBox[{"STime7v", "[", 
    RowBox[{"850", ",", "850", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "Rgal", ",", "40"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.561733712890625*^9, 3.561733738234375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMinimum", "::", "\<\"nrnum\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"The function value \\!\\(STime7v[\\(\\(850, 850, 0.8`, \
0.29`, 40\\)\\)]\\) is not a real number at \\!\\({dapp}\\) = \
\\!\\({1.6`}\\).\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5617338833125*^9, 3.5617904261875*^9, 
  3.561983168859375*^9, 3.562047012984375*^9, 3.56235533671875*^9, 
  3.562466422253006*^9, 3.562962240953125*^9, 3.563087306890625*^9}],

Cell[BoxData[
 RowBox[{"FindMinimum", "[", 
  RowBox[{
   RowBox[{"STime7v", "[", 
    RowBox[{"850", ",", "850", ",", 
     FractionBox["dapp", "2"], ",", "Rgal", ",", "40"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.6`"}], "}"}]}], "]"}]], "Output",
 CellChangeTimes->{3.56173390328125*^9, 3.56179043440625*^9, 
  3.561983176078125*^9, 3.562047020375*^9, 3.562355343921875*^9, 
  3.562466422253006*^9, 3.562962240953125*^9, 3.563087306890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v3", "[", 
    RowBox[{"350", ",", "400", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "0", ",", "20"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56173556121875*^9, 3.561735577796875*^9}, {
   3.5617357128125*^9, 3.561735714828125*^9}, 3.56227009421875*^9, {
   3.562359291234375*^9, 3.5623592919375*^9}, 3.562362056640625*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 18.09008008598955}, {1.3006212841513152`, 
     17.559041677610985`}, {1.3555004998519722`, 17.08324954334473}, {
     1.4067429628914447`, 16.721298197531652`}, {1.4569802522171011`, 
     16.434802465776187`}, {1.5114755257236783`, 16.19250226714989}, {
     1.562334046569071, 16.0244456707927}, {1.6174505515953845`, 
     15.899870453276925`}, {1.671561882907882, 15.831030356304312`}, {
     1.722036461559195, 15.81103500318323}, {1.7767690243914287`, 
     15.83445573706153}, {1.827864834562478, 15.896279848954638`}, {
     1.877955471019711, 15.99250244690272}, {1.932304091657865, 
     16.135111196147232`}, {1.9830159596348347`, 16.302763539916242`}, {
     2.037985811792725, 16.521058106821137`}, {2.0919504902367994`, 
     16.771458659826607`}, {2.1422784160196895`, 17.036599860922788`}, {
     2.1968643259835003`, 17.358180019097794`}, {2.2478134832861265`, 
     17.689956541047128`}, {2.249999947368421, 17.70487467734382}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 16.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {15.81103500318323, 18.09008008598955}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56173557496875*^9, 3.561735664796875*^9, 
  3.56173579278125*^9, 3.561790456890625*^9, 3.561983198453125*^9, 
  3.5620470434375*^9, 3.562270119953125*^9, 3.562355366125*^9, 
  3.562359315484375*^9, 3.562362094140625*^9, 3.562466443393631*^9, 
  3.562962262*^9, 3.5630873286875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v4", "[", 
    RowBox[{"350", ",", "400", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "0", ",", "20"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56173556121875*^9, 3.561735577796875*^9}, {
   3.5617357128125*^9, 3.561735714828125*^9}, 3.56227009421875*^9, {
   3.562359291234375*^9, 3.5623592919375*^9}, 3.562362056640625*^9, {
   3.562362090234375*^9, 3.562362090953125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 16.358242653758513`}, {1.3006212841513152`,
      15.7953523996794}, {1.3555004998519722`, 15.282272477258863`}, {
     1.4067429628914447`, 14.882791302798259`}, {1.4569802522171011`, 
     14.556839750696458`}, {1.5114755257236783`, 14.268623073878203`}, {
     1.562334046569071, 14.054657816811337`}, {1.6174505515953845`, 
     13.876847622616905`}, {1.671561882907882, 13.752062067880617`}, {
     1.722036461559195, 13.676452300393672`}, {1.7767690243914287`, 
     13.635664613237372`}, {1.827864834562478, 13.633731870786152`}, {
     1.877955471019711, 13.663731619301693`}, {1.932304091657865, 
     13.730156718880226`}, {1.9830159596348347`, 13.822499423766892`}, {
     2.037985811792725, 13.954373783767878`}, {2.0919504902367994`, 
     14.114902843643128`}, {2.1422784160196895`, 14.291566705743223`}, {
     2.1968643259835003`, 14.511908712661578`}, {2.2478134832861265`, 
     14.744062962548629`}, {2.249999947368421, 14.754592362926777`}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 14.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {13.633731870786152`, 16.358242653758513`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562362159015625*^9, 3.562466464378006*^9, 
  3.562962283265625*^9, 3.563087350609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"STime7v3", "[", 
    RowBox[{"550", ",", "400", ",", 
     RowBox[{"dapp", "/", "2"}], ",", "0", ",", "20"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "  ", 
    RowBox[{"{", 
     RowBox[{"diam", ",", "time"}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "14", ",", " ", "Bold"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.56173556121875*^9, 3.561735577796875*^9}, {
   3.561735698453125*^9, 3.5617357206875*^9}, {3.56223141025*^9, 
   3.562231413484375*^9}, {3.562359297578125*^9, 3.562359303390625*^9}, {
   3.562362078625*^9, 3.56236207909375*^9}, 3.562362115890625*^9, {
   3.5623624195*^9, 3.562362420078125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], 
    LineBox[{{1.2500000526315789`, 8.775866617845107}, {1.3006212841513152`, 
     8.367397252512689}, {1.3555004998519722`, 7.991147841304543}, {
     1.4067429628914447`, 7.694213405974568}, {1.4569802522171011`, 
     7.447832689811447}, {1.5114755257236783`, 7.224902939389156}, {
     1.562334046569071, 7.054011312865154}, {1.6174505515953845`, 
     6.905160377283458}, {1.671561882907882, 6.79231826120704}, {
     1.722036461559195, 6.714203179124003}, {1.7767690243914287`, 
     6.656753220030126}, {1.827864834562478, 6.626899798164006}, {
     1.877955471019711, 6.618496966290189}, {1.932304091657865, 
     6.631412049292983}, {1.9830159596348347`, 6.663097887780082}, {
     2.037985811792725, 6.71787577120137}, {2.0919504902367994`, 
     6.791512275724694}, {2.1422784160196895`, 6.877322043205103}, {
     2.1968643259835003`, 6.988561104455561}, {2.2478134832861265`, 
     7.109057458967887}, {2.249999947368421, 7.114583786254229}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["diam", TraditionalForm], 
    FormBox["time", TraditionalForm]},
  AxesOrigin->{1.4000000000000001`, 7.},
  AxesStyle->Directive[
    Thickness[Large], 14, Bold],
  PlotRange->{{1.25, 2.25}, {6.618496966290189, 8.775866617845107}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.561735866625*^9, 3.561790479390625*^9, 
  3.561983220890625*^9, 3.562047067171875*^9, 3.5622314375*^9, 
  3.562355387421875*^9, 3.562359339234375*^9, 3.562362110140625*^9, 
  3.56236218246875*^9, 3.562362445875*^9, 3.562466487268631*^9, 
  3.562962306359375*^9, 3.5630873746875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FWHMsee500", "=", "0.9"}]], "Input",
 CellChangeTimes->{{3.562143359578125*^9, 3.56214339121875*^9}, {
   3.562143459390625*^9, 3.562143479484375*^9}, 3.56214388584375*^9, {
   3.562165797949274*^9, 3.562165800261774*^9}}],

Cell[BoxData["0.9`"], "Output",
 CellChangeTimes->{3.562165801214899*^9, 3.562355430890625*^9, 
  3.562466487299881*^9, 3.562962306390625*^9, 3.563087374734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PT7As", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"STime7ADC", "[", 
     RowBox[{"850", ",", 
      RowBox[{"dapp", "/", "2"}], ",", "Rgal"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"dapp", ",", "1.25", ",", "2.25"}], "}"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.560009005796875*^9, 3.560009076234375*^9}, {
  3.560009318203125*^9, 3.56000935578125*^9}, {3.560158420890625*^9, 
  3.5601584370625*^9}, {3.560158841921875*^9, 3.560158857703125*^9}, {
  3.56068428128125*^9, 3.560684300046875*^9}, {3.56068442875*^9, 
  3.56068446203125*^9}, {3.56068519896875*^9, 3.5606851994375*^9}, {
  3.560685251875*^9, 3.5606852615*^9}, {3.560793786734375*^9, 
  3.560793788015625*^9}, {3.56079421159375*^9, 3.5607942134375*^9}, {
  3.562143915140625*^9, 3.5621439236875*^9}, {3.56214437509375*^9, 
  3.562144377171875*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{1.2500000526315789`, 3.2948025817977196`}, {1.3006212841513152`,
      3.178550498058791}, {1.3555004998519722`, 3.0715204980347632`}, {
     1.4067429628914447`, 2.9870568261037556`}, {1.4569802522171011`, 
     2.9169303233986636`}, {1.5114755257236783`, 2.8533719380964113`}, {
     1.562334046569071, 2.804486013529399}, {1.6174505515953845`, 
     2.7616419198900863`}, {1.671561882907882, 2.728789192102777}, {
     1.722036461559195, 2.7055839208397305`}, {1.7767690243914287`, 
     2.6878123215802}, {1.827864834562478, 2.677594424896432}, {
     1.877955471019711, 2.6730954363199113`}, {1.932304091657865, 
     2.673956591187081}, {1.9830159596348347`, 2.679797013700834}, {
     2.037985811792725, 2.6912765168957575`}, {2.0919504902367994`, 
     2.7074565022774397`}, {2.1422784160196895`, 2.726698284631446}, {
     2.1968643259835003`, 2.7518785093670552`}, {2.2478134832861265`, 
     2.7792511301537357`}, {2.249999947368421, 2.780506968437864}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.4000000000000001`, 2.7},
  PlotRange->{{1.25, 2.25}, {2.6730954363199113`, 3.2948025817977196`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562143924640625*^9, 3.562144127421875*^9, 
  3.562144404546875*^9, 3.562165835605524*^9, 3.56235545359375*^9, 
  3.562466509456131*^9, 3.56296232865625*^9, 3.563087398015625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STime7ADC", "[", 
  RowBox[{"850", ",", 
   RowBox[{"1.45", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.562144169125*^9, 3.562144171765625*^9}, {
  3.562144276578125*^9, 3.562144280578125*^9}}],

Cell[BoxData["2.9259799654964467`"], "Output",
 CellChangeTimes->{3.56214417421875*^9, 3.562144283015625*^9, 
  3.56214440559375*^9, 3.562165836730524*^9, 3.562355454640625*^9, 
  3.562466510456131*^9, 3.5629623296875*^9, 3.563087399078125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FWHMsee500", "=", ".75"}]], "Input",
 CellChangeTimes->{{3.562143359578125*^9, 3.56214339121875*^9}, {
   3.562143459390625*^9, 3.562143479484375*^9}, 3.56214388584375*^9, {
   3.562144184140625*^9, 3.562144185671875*^9}}],

Cell[BoxData["0.75`"], "Output",
 CellChangeTimes->{3.562144187078125*^9, 3.56214440565625*^9, 
  3.562165836793024*^9, 3.562355454703125*^9, 3.562466510471756*^9, 
  3.562962329734375*^9, 3.563087399109375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STime7", "[", 
  RowBox[{"850", ",", "850", ",", 
   RowBox[{"1.57", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.56214422846875*^9, 3.5621442345*^9}, {
  3.5621443420625*^9, 3.5621443495625*^9}}],

Cell[BoxData["2.137093120543652`"], "Output",
 CellChangeTimes->{{3.562144212265625*^9, 3.56214423546875*^9}, 
   3.5621443525*^9, 3.562144406875*^9, 3.562165838121149*^9, 
   3.562355455921875*^9, 3.562466511659256*^9, 3.5629623309375*^9, 
   3.563087400359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"STime7", "[", 
  RowBox[{"850", ",", "850", ",", 
   RowBox[{"1.6", "/", "2"}], ",", "Rgal"}], "]"}]], "Input",
 CellChangeTimes->{{3.56214422846875*^9, 3.5621442345*^9}, {
  3.5621443420625*^9, 3.5621443495625*^9}, {3.562165844980524*^9, 
  3.562165846027399*^9}}],

Cell[BoxData["2.1274576839674686`"], "Output",
 CellChangeTimes->{3.562165848871149*^9, 3.562355457125*^9, 
  3.562466512815506*^9, 3.562962332109375*^9, 3.563087401609375*^9}]
}, Open  ]]
},
WindowSize->{793, 739},
WindowMargins->{{156, Automatic}, {Automatic, 149}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 539, 17, 31, "Input"],
Cell[CellGroupData[{
Cell[1132, 42, 341, 8, 31, "Input"],
Cell[1476, 52, 428, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1941, 63, 740, 19, 31, "Input"],
Cell[2684, 84, 610, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3331, 99, 480, 12, 31, "Input"],
Cell[3814, 113, 456, 9, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4307, 127, 527, 13, 31, "Input"],
Cell[4837, 142, 1377, 37, 74, "Output"]
}, Open  ]],
Cell[6229, 182, 843, 24, 31, "Input"],
Cell[7075, 208, 298, 7, 31, "Input"],
Cell[CellGroupData[{
Cell[7398, 219, 528, 13, 31, "Input"],
Cell[7929, 234, 566, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8532, 247, 159, 3, 31, "Input"],
Cell[8694, 252, 543, 13, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9274, 270, 835, 20, 31, "Input"],
Cell[10112, 292, 662, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10811, 308, 132, 2, 31, "Input"],
Cell[10946, 312, 377, 5, 30, "Output"]
}, Open  ]],
Cell[11338, 320, 445, 8, 31, "Input"],
Cell[11786, 330, 852, 23, 52, "Input"],
Cell[CellGroupData[{
Cell[12663, 357, 304, 8, 31, "Input"],
Cell[12970, 367, 372, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13379, 377, 545, 16, 31, "Input"],
Cell[13927, 395, 433, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14397, 407, 467, 11, 31, "Input"],
Cell[14867, 420, 553, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15457, 433, 560, 13, 31, "Input"],
Cell[16020, 448, 615, 9, 30, "Output"]
}, Open  ]],
Cell[16650, 460, 431, 9, 52, "Input"],
Cell[CellGroupData[{
Cell[17106, 473, 528, 14, 31, "Input"],
Cell[17637, 489, 777, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18451, 507, 108, 2, 31, "Input"],
Cell[18562, 511, 556, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19155, 524, 487, 12, 31, "Input"],
Cell[19645, 538, 692, 11, 30, "Output"]
}, Open  ]],
Cell[20352, 552, 693, 19, 31, "Input"],
Cell[CellGroupData[{
Cell[21070, 575, 322, 8, 31, "Input"],
Cell[21395, 585, 358, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21790, 595, 529, 15, 31, "Input"],
Cell[22322, 612, 441, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22800, 625, 382, 11, 31, "Input"],
Cell[23185, 638, 429, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23651, 650, 665, 14, 31, "Input"],
Cell[24319, 666, 789, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25145, 682, 716, 15, 31, "Input"],
Cell[25864, 699, 753, 11, 30, "Output"]
}, Open  ]],
Cell[26632, 713, 421, 9, 31, "Input"],
Cell[27056, 724, 691, 17, 31, "Input"],
Cell[CellGroupData[{
Cell[27772, 745, 327, 8, 31, "Input"],
Cell[28102, 755, 596, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28735, 769, 532, 15, 31, "Input"],
Cell[29270, 786, 461, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29768, 799, 378, 11, 31, "Input"],
Cell[30149, 812, 410, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30596, 824, 493, 13, 31, "Input"],
Cell[31092, 839, 639, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31768, 853, 427, 11, 31, "Input"],
Cell[32198, 866, 470, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32705, 878, 430, 11, 31, "Input"],
Cell[33138, 891, 429, 6, 30, "Output"]
}, Open  ]],
Cell[33582, 900, 409, 11, 31, "Input"],
Cell[33994, 913, 869, 23, 72, "Input"],
Cell[34866, 938, 442, 12, 31, "Input"],
Cell[CellGroupData[{
Cell[35333, 954, 488, 12, 31, "Input"],
Cell[35824, 968, 490, 9, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36351, 982, 1144, 29, 52, "Input"],
Cell[37498, 1013, 907, 22, 50, "Output"]
}, Open  ]],
Cell[38420, 1038, 561, 17, 50, "Input"],
Cell[CellGroupData[{
Cell[39006, 1059, 195, 4, 31, "Input"],
Cell[39204, 1065, 538, 10, 30, "Output"]
}, Open  ]],
Cell[39757, 1078, 320, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[40102, 1091, 129, 3, 31, "Input"],
Cell[40234, 1096, 507, 9, 30, "Output"]
}, Open  ]],
Cell[40756, 1108, 289, 9, 31, "Input"],
Cell[CellGroupData[{
Cell[41070, 1121, 211, 5, 31, "Input"],
Cell[41284, 1128, 511, 9, 30, "Output"]
}, Open  ]],
Cell[41810, 1140, 568, 17, 31, "Input"],
Cell[42381, 1159, 831, 18, 31, "Input"],
Cell[CellGroupData[{
Cell[43237, 1181, 228, 4, 31, "Input"],
Cell[43468, 1187, 601, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44106, 1201, 273, 5, 31, "Input"],
Cell[44382, 1208, 475, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44894, 1220, 250, 5, 31, "Input"],
Cell[45147, 1227, 673, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45857, 1242, 296, 5, 31, "Input"],
Cell[46156, 1249, 555, 8, 30, "Output"]
}, Open  ]],
Cell[46726, 1260, 1285, 34, 72, "Input"],
Cell[CellGroupData[{
Cell[48036, 1298, 158, 3, 31, "Input"],
Cell[48197, 1303, 335, 5, 30, "Output"]
}, Open  ]],
Cell[48547, 1311, 2498, 67, 152, "Input"],
Cell[CellGroupData[{
Cell[51070, 1382, 2554, 55, 152, "Input"],
Cell[53627, 1439, 24025, 404, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77689, 1848, 2014, 43, 132, "Input"],
Cell[79706, 1893, 451, 9, 45, "Message"],
Cell[80160, 1904, 17884, 302, 304, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98081, 2211, 2620, 58, 152, "Input"],
Cell[100704, 2271, 28508, 479, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129249, 2755, 2175, 45, 132, "Input"],
Cell[131427, 2802, 452, 9, 45, "Message"],
Cell[131882, 2813, 22470, 377, 257, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154389, 3195, 225, 5, 31, "Input"],
Cell[154617, 3202, 358, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155012, 3212, 509, 13, 31, "Input"],
Cell[155524, 3227, 310, 4, 30, "Output"]
}, Open  ]],
Cell[155849, 3234, 1510, 35, 72, "Input"],
Cell[157362, 3271, 792, 21, 72, "Input"],
Cell[CellGroupData[{
Cell[158179, 3296, 144, 3, 31, "Input"],
Cell[158326, 3301, 357, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158720, 3311, 696, 19, 31, "Input"],
Cell[159419, 3332, 329, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159785, 3342, 1312, 28, 52, "Input"],
Cell[161100, 3372, 13687, 233, 240, 7141, 124, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[174802, 3608, 1555, 36, 72, "Input"],
Cell[176360, 3646, 834, 21, 52, "Input"],
Cell[CellGroupData[{
Cell[177219, 3671, 137, 3, 31, "Input"],
Cell[177359, 3676, 331, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177727, 3686, 158, 3, 31, "Input"],
Cell[177888, 3691, 331, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178256, 3701, 653, 19, 31, "Input"],
Cell[178912, 3722, 404, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179353, 3733, 1242, 27, 52, "Input"],
Cell[180598, 3762, 13646, 233, 240, 7064, 123, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194281, 4000, 1624, 35, 72, "Input"],
Cell[195908, 4037, 24011, 405, 240, 13963, 238, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219956, 4447, 2136, 50, 92, "Input"],
Cell[222095, 4499, 24026, 406, 240, 14208, 243, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[246136, 4908, 334, 6, 112, "Input"],
Cell[CellGroupData[{
Cell[246495, 4918, 126, 2, 31, "Input"],
Cell[246624, 4922, 211, 3, 30, "Output"]
}, Open  ]],
Cell[246850, 4928, 1071, 24, 52, "Input"],
Cell[CellGroupData[{
Cell[247946, 4956, 643, 15, 52, "Input"],
Cell[248592, 4973, 497, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249126, 4985, 224, 5, 31, "Input"],
Cell[249353, 4992, 981, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[250371, 5011, 305, 7, 31, "Input"],
Cell[250679, 5020, 285, 4, 30, "Output"]
}, Open  ]],
Cell[250979, 5027, 977, 23, 92, "Input"],
Cell[CellGroupData[{
Cell[251981, 5054, 1211, 25, 52, "Input"],
Cell[253195, 5081, 2759, 53, 228, "Output"]
}, Open  ]],
Cell[255969, 5137, 2175, 47, 72, "Input"],
Cell[CellGroupData[{
Cell[258169, 5188, 800, 19, 52, "Input"],
Cell[258972, 5209, 2340, 46, 219, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261349, 5260, 2965, 56, 219, "Input"],
Cell[264317, 5318, 2296, 46, 219, "Output"]
}, Open  ]],
Cell[266628, 5367, 1051, 17, 332, "Input"],
Cell[267682, 5386, 2739, 64, 112, "Input"],
Cell[CellGroupData[{
Cell[270446, 5454, 238, 5, 31, "Input"],
Cell[270687, 5461, 359, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271083, 5471, 901, 22, 52, "Input"],
Cell[271987, 5495, 7845, 137, 213, 2226, 44, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[279869, 5637, 1667, 40, 92, "Input"],
Cell[281539, 5679, 25650, 437, 213, 10930, 194, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[307226, 6121, 1125, 27, 72, "Input"],
Cell[308354, 6150, 25019, 420, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[333410, 6575, 683, 12, 52, "Input"],
Cell[334096, 6589, 1261, 20, 297, "Output"]
}, Open  ]],
Cell[335372, 6612, 1276, 29, 52, "Input"],
Cell[CellGroupData[{
Cell[336673, 6645, 146, 3, 31, "Input"],
Cell[336822, 6650, 507, 7, 30, "Output"]
}, Open  ]],
Cell[337344, 6660, 1816, 41, 92, "Input"],
Cell[CellGroupData[{
Cell[339185, 6705, 972, 20, 31, "Input"],
Cell[340160, 6727, 7543, 130, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[347740, 6862, 1131, 19, 352, "Input"],
Cell[348874, 6883, 1575, 25, 335, "Output"]
}, Open  ]],
Cell[350464, 6911, 1234, 28, 52, "Input"],
Cell[351701, 6941, 1856, 42, 92, "Input"],
Cell[CellGroupData[{
Cell[353582, 6987, 974, 20, 31, "Input"],
Cell[354559, 7009, 11835, 201, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[366431, 7215, 1412, 27, 52, "Input"],
Cell[367846, 7244, 5890, 105, 223, "Output"]
}, Open  ]],
Cell[373751, 7352, 1206, 30, 52, "Input"],
Cell[CellGroupData[{
Cell[374982, 7386, 345, 9, 31, "Input"],
Cell[375330, 7397, 6731, 116, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[382098, 7518, 393, 10, 31, "Input"],
Cell[382494, 7530, 13432, 226, 248, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[395963, 7761, 155, 3, 31, "Input"],
Cell[396121, 7766, 691, 11, 45, "Output"]
}, Open  ]],
Cell[396827, 7780, 1660, 35, 72, "Input"],
Cell[CellGroupData[{
Cell[398512, 7819, 619, 10, 31, "Input"],
Cell[399134, 7831, 550, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[399721, 7844, 753, 15, 31, "Input"],
Cell[400477, 7861, 1818, 35, 248, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402332, 7901, 755, 15, 31, "Input"],
Cell[403090, 7918, 1785, 35, 248, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[404912, 7958, 753, 15, 31, "Input"],
Cell[405668, 7975, 1807, 34, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[407512, 8014, 4663, 126, 232, "Input"],
Cell[412178, 8142, 16485, 281, 229, "Output"]
}, Open  ]],
Cell[428678, 8426, 1789, 38, 72, "Input"],
Cell[CellGroupData[{
Cell[430492, 8468, 1096, 20, 31, "Input"],
Cell[431591, 8490, 6304, 108, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[437932, 8603, 1067, 19, 31, "Input"],
Cell[439002, 8624, 6045, 104, 229, "Output"]
}, Open  ]],
Cell[445062, 8731, 310, 9, 31, "Input"],
Cell[445375, 8742, 205, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[445605, 8751, 144, 3, 31, "Input"],
Cell[445752, 8756, 629, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[446418, 8770, 225, 4, 31, "Input"],
Cell[446646, 8776, 645, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[447328, 8791, 374, 10, 31, "Input"],
Cell[447705, 8803, 635, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[448377, 8817, 119, 2, 31, "Input"],
Cell[448499, 8821, 608, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[449144, 8835, 274, 5, 31, "Input"],
Cell[449421, 8842, 737, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[450195, 8858, 96, 2, 31, "Input"],
Cell[450294, 8862, 641, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[450972, 8877, 832, 24, 31, "Input"],
Cell[451807, 8903, 813, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[452657, 8920, 1048, 31, 92, "Input"],
Cell[453708, 8953, 825, 13, 30, "Output"]
}, Open  ]],
Cell[454548, 8969, 1147, 34, 72, "Input"],
Cell[CellGroupData[{
Cell[455720, 9007, 119, 2, 31, "Input"],
Cell[455842, 9011, 622, 9, 30, "Output"]
}, Open  ]],
Cell[456479, 9023, 538, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[457042, 9042, 257, 5, 31, "Input"],
Cell[457302, 9049, 916, 13, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[458255, 9067, 156, 3, 31, "Input"],
Cell[458414, 9072, 550, 9, 30, "Output"]
}, Open  ]],
Cell[458979, 9084, 1317, 23, 352, "Input"],
Cell[460299, 9109, 1051, 17, 332, "Input"],
Cell[461353, 9128, 1097, 21, 252, "Input"],
Cell[462453, 9151, 2315, 50, 92, "Input"],
Cell[CellGroupData[{
Cell[464793, 9205, 256, 5, 31, "Input"],
Cell[465052, 9212, 290, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[465379, 9221, 238, 5, 31, "Input"],
Cell[465620, 9228, 272, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[465929, 9237, 235, 5, 31, "Input"],
Cell[466167, 9244, 270, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[466474, 9253, 237, 5, 31, "Input"],
Cell[466714, 9260, 273, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[467024, 9269, 237, 5, 31, "Input"],
Cell[467264, 9276, 239, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[467540, 9284, 348, 6, 31, "Input"],
Cell[467891, 9292, 240, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[468168, 9300, 261, 5, 31, "Input"],
Cell[468432, 9307, 265, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[468734, 9316, 262, 5, 31, "Input"],
Cell[468999, 9323, 285, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[469321, 9332, 259, 5, 31, "Input"],
Cell[469583, 9339, 267, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[469887, 9348, 309, 6, 31, "Input"],
Cell[470199, 9356, 256, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[470492, 9364, 308, 6, 31, "Input"],
Cell[470803, 9372, 270, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[471110, 9381, 309, 6, 31, "Input"],
Cell[471422, 9389, 257, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[471716, 9397, 309, 6, 31, "Input"],
Cell[472028, 9405, 264, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[472329, 9414, 356, 6, 31, "Input"],
Cell[472688, 9422, 270, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[472995, 9431, 358, 6, 31, "Input"],
Cell[473356, 9439, 264, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[473657, 9448, 312, 6, 31, "Input"],
Cell[473972, 9456, 296, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[474305, 9466, 329, 6, 31, "Input"],
Cell[474637, 9474, 219, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[474893, 9482, 242, 5, 31, "Input"],
Cell[475138, 9489, 241, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[475416, 9497, 243, 5, 31, "Input"],
Cell[475662, 9504, 269, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[475968, 9513, 240, 5, 31, "Input"],
Cell[476211, 9520, 240, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[476488, 9528, 286, 5, 31, "Input"],
Cell[476777, 9535, 236, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[477050, 9543, 285, 5, 31, "Input"],
Cell[477338, 9550, 245, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[477620, 9558, 286, 5, 31, "Input"],
Cell[477909, 9565, 232, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[478178, 9573, 286, 5, 31, "Input"],
Cell[478467, 9580, 240, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[478744, 9588, 337, 6, 31, "Input"],
Cell[479084, 9596, 242, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[479363, 9604, 339, 6, 31, "Input"],
Cell[479705, 9612, 241, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[479983, 9620, 289, 5, 31, "Input"],
Cell[480275, 9627, 239, 3, 30, "Output"]
}, Open  ]],
Cell[480529, 9633, 221, 5, 52, "Input"],
Cell[CellGroupData[{
Cell[480775, 9642, 238, 5, 31, "Input"],
Cell[481016, 9649, 247, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[481300, 9657, 281, 5, 31, "Input"],
Cell[481584, 9664, 288, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[481909, 9673, 282, 5, 31, "Input"],
Cell[482194, 9680, 290, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[482521, 9689, 281, 5, 31, "Input"],
Cell[482805, 9696, 294, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[483136, 9705, 283, 5, 31, "Input"],
Cell[483422, 9712, 260, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[483719, 9721, 283, 5, 31, "Input"],
Cell[484005, 9728, 268, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[484310, 9737, 213, 4, 31, "Input"],
Cell[484526, 9743, 193, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[484756, 9751, 333, 6, 31, "Input"],
Cell[485092, 9759, 288, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[485417, 9768, 331, 6, 31, "Input"],
Cell[485751, 9776, 265, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[486053, 9785, 380, 7, 31, "Input"],
Cell[486436, 9794, 255, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[486728, 9802, 380, 7, 31, "Input"],
Cell[487111, 9811, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[487414, 9820, 382, 7, 31, "Input"],
Cell[487799, 9829, 260, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[488096, 9837, 380, 7, 31, "Input"],
Cell[488479, 9846, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[488782, 9855, 429, 7, 31, "Input"],
Cell[489214, 9864, 264, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[489515, 9873, 426, 7, 31, "Input"],
Cell[489944, 9882, 265, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[490246, 9891, 384, 7, 31, "Input"],
Cell[490633, 9900, 267, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[490937, 9909, 333, 6, 31, "Input"],
Cell[491273, 9917, 191, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[491501, 9924, 284, 5, 31, "Input"],
Cell[491788, 9931, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[492091, 9940, 286, 5, 31, "Input"],
Cell[492380, 9947, 290, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[492707, 9956, 284, 5, 31, "Input"],
Cell[492994, 9963, 262, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[493293, 9972, 333, 6, 31, "Input"],
Cell[493629, 9980, 254, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[493920, 9988, 333, 6, 31, "Input"],
Cell[494256, 9996, 265, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[494558, 10005, 335, 6, 31, "Input"],
Cell[494896, 10013, 258, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[495191, 10021, 333, 6, 31, "Input"],
Cell[495527, 10029, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[495830, 10038, 386, 7, 31, "Input"],
Cell[496219, 10047, 265, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[496521, 10056, 383, 7, 31, "Input"],
Cell[496907, 10065, 259, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[497203, 10074, 337, 6, 31, "Input"],
Cell[497543, 10082, 269, 4, 30, "Output"]
}, Open  ]],
Cell[497827, 10089, 217, 6, 52, "Input"],
Cell[CellGroupData[{
Cell[498069, 10099, 278, 5, 31, "Input"],
Cell[498350, 10106, 307, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[498694, 10115, 260, 5, 31, "Input"],
Cell[498957, 10122, 294, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[499288, 10131, 256, 5, 31, "Input"],
Cell[499547, 10138, 289, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[499873, 10147, 259, 5, 31, "Input"],
Cell[500135, 10154, 300, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[500472, 10163, 259, 5, 31, "Input"],
Cell[500734, 10170, 258, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[501029, 10178, 260, 5, 31, "Input"],
Cell[501292, 10185, 258, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[501587, 10193, 211, 4, 31, "Input"],
Cell[501801, 10199, 188, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[502026, 10206, 314, 6, 31, "Input"],
Cell[502343, 10214, 200, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[502580, 10222, 264, 5, 31, "Input"],
Cell[502847, 10229, 267, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[503151, 10238, 265, 5, 31, "Input"],
Cell[503419, 10245, 290, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[503746, 10254, 261, 5, 31, "Input"],
Cell[504010, 10261, 268, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[504315, 10270, 307, 6, 31, "Input"],
Cell[504625, 10278, 257, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[504919, 10286, 310, 6, 31, "Input"],
Cell[505232, 10294, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[505535, 10303, 311, 6, 31, "Input"],
Cell[505849, 10311, 260, 3, 30, "Output"]
}, Open  ]],
Cell[506124, 10317, 371, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[506520, 10329, 357, 6, 31, "Input"],
Cell[506880, 10337, 268, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[507185, 10346, 361, 6, 31, "Input"],
Cell[507549, 10354, 265, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[507851, 10363, 313, 6, 31, "Input"],
Cell[508167, 10371, 266, 4, 30, "Output"]
}, Open  ]],
Cell[508448, 10378, 221, 5, 52, "Input"],
Cell[CellGroupData[{
Cell[508694, 10387, 260, 5, 31, "Input"],
Cell[508957, 10394, 271, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[509265, 10403, 306, 6, 31, "Input"],
Cell[509574, 10411, 295, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[509906, 10420, 307, 6, 31, "Input"],
Cell[510216, 10428, 287, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[510540, 10437, 306, 6, 31, "Input"],
Cell[510849, 10445, 296, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[511182, 10454, 308, 6, 31, "Input"],
Cell[511493, 10462, 263, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[511793, 10471, 308, 6, 31, "Input"],
Cell[512104, 10479, 271, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[512412, 10488, 213, 4, 31, "Input"],
Cell[512628, 10494, 176, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[512841, 10501, 353, 6, 31, "Input"],
Cell[513197, 10509, 176, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[513410, 10516, 308, 6, 31, "Input"],
Cell[513721, 10524, 267, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[514025, 10533, 312, 6, 31, "Input"],
Cell[514340, 10541, 291, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[514668, 10550, 310, 6, 31, "Input"],
Cell[514981, 10558, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[515284, 10567, 355, 6, 31, "Input"],
Cell[515642, 10575, 260, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[515939, 10583, 351, 6, 31, "Input"],
Cell[516293, 10591, 263, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[516593, 10600, 355, 6, 31, "Input"],
Cell[516951, 10608, 255, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[517243, 10616, 355, 6, 31, "Input"],
Cell[517601, 10624, 267, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[517905, 10633, 408, 7, 31, "Input"],
Cell[518316, 10642, 264, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[518617, 10651, 405, 7, 31, "Input"],
Cell[519025, 10660, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[519328, 10669, 357, 6, 31, "Input"],
Cell[519688, 10677, 266, 4, 30, "Output"]
}, Open  ]],
Cell[519969, 10684, 977, 24, 31, "Input"],
Cell[CellGroupData[{
Cell[520971, 10712, 328, 6, 31, "Input"],
Cell[521302, 10720, 563, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[521902, 10733, 1294, 29, 72, "Input"],
Cell[523199, 10764, 2889, 49, 233, "Output"]
}, Open  ]],
Cell[526103, 10816, 907, 23, 72, "Input"],
Cell[527013, 10841, 1431, 38, 92, "Input"],
Cell[528447, 10881, 1431, 38, 92, "Input"],
Cell[529881, 10921, 1168, 27, 52, "Input"],
Cell[531052, 10950, 929, 22, 52, "Input"],
Cell[531984, 10974, 2497, 52, 92, "Input"],
Cell[534484, 11028, 1256, 28, 52, "Input"],
Cell[535743, 11058, 1014, 23, 52, "Input"],
Cell[CellGroupData[{
Cell[536782, 11085, 1198, 25, 72, "Input"],
Cell[537983, 11112, 2139, 42, 238, "Output",
 Evaluatable->False]
}, Open  ]],
Cell[CellGroupData[{
Cell[540159, 11159, 1160, 25, 72, "Input"],
Cell[541322, 11186, 1857, 35, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[543216, 11226, 1140, 25, 72, "Input"],
Cell[544359, 11253, 2012, 38, 249, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[546408, 11296, 1229, 26, 72, "Input"],
Cell[547640, 11324, 1926, 36, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[549603, 11365, 595, 13, 31, "Input"],
Cell[550201, 11380, 3063, 54, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[553301, 11439, 1328, 27, 52, "Input"],
Cell[554632, 11468, 2071, 39, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[556740, 11512, 860, 17, 31, "Input"],
Cell[557603, 11531, 1438, 26, 244, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[559078, 11562, 1704, 31, 251, "Input"],
Cell[560785, 11595, 1439, 26, 251, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[562261, 11626, 200, 4, 31, "Input"],
Cell[562464, 11632, 3016, 53, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[565517, 11690, 1769, 34, 52, "Input"],
Cell[567289, 11726, 1039, 22, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[568365, 11753, 577, 12, 52, "Input"],
Cell[568945, 11767, 1090, 21, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[570072, 11793, 879, 20, 72, "Input"],
Cell[570954, 11815, 1765, 33, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[572756, 11853, 930, 21, 72, "Input"],
Cell[573689, 11876, 1558, 30, 256, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[575284, 11911, 879, 20, 72, "Input"],
Cell[576166, 11933, 1626, 31, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[577829, 11969, 929, 21, 72, "Input"],
Cell[578761, 11992, 1565, 30, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[580363, 12027, 931, 21, 72, "Input"],
Cell[581297, 12050, 1641, 32, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[582975, 12087, 552, 12, 31, "Input"],
Cell[583530, 12101, 1527, 28, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[585094, 12134, 552, 12, 31, "Input"],
Cell[585649, 12148, 1588, 29, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[587274, 12182, 334, 8, 31, "Input"],
Cell[587611, 12192, 466, 9, 21, "Message"],
Cell[588080, 12203, 465, 10, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[588582, 12218, 879, 20, 52, "Input"],
Cell[589464, 12240, 1804, 34, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[591305, 12279, 929, 21, 52, "Input"],
Cell[592237, 12302, 1630, 31, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[593904, 12338, 993, 22, 52, "Input"],
Cell[594900, 12362, 1777, 34, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[596714, 12401, 246, 4, 31, "Input"],
Cell[596963, 12407, 164, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[597164, 12414, 960, 19, 31, "Input"],
Cell[598127, 12435, 1534, 27, 242, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[599698, 12467, 239, 5, 31, "Input"],
Cell[599940, 12474, 244, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[600221, 12482, 246, 4, 31, "Input"],
Cell[600470, 12488, 211, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[600718, 12496, 241, 5, 31, "Input"],
Cell[600962, 12503, 266, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[601265, 12512, 289, 6, 31, "Input"],
Cell[601557, 12520, 176, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
